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1^0 ABSTRACT 



This aiignostic nill funetiontiiy ttst th@ harawar® options on 
tht I1AJ& terminal, 

up to 48 ttrwinsii^ including the eonsolt atvict# can be tested 
at a tiwfi All ttrwinals under ttit »«uit b® interfaced thru a DlH 
typ® inttrtectf 

COhtrol Of this diagnostic may be thru a switch register^ or via 
interactive congol® terminal commandSs 



Ifl functional Description 

The pr^grfiw will first determine it tht system has a hardware 
switch register* ll none available a software switch register %t loe 
Hi Will be assigntds 

The program will then determine what device interfaces are on the 
eystem^ at the standard dlu»A|B^c,D|E address and the interrupt 
vector Qt each interface present^ This information will then be 
stored in a table. 

The program wm then aSk the operator if he/she wants to use 
console control^ it the response is »no« the program will halt and 
wait f©r th% operator to enter control information thru the switch 

register^ 

Note I II no hardware switch register is present control is forced 
to console control^ 

If console control is selected a menu of aVaiiabi® commands wm 
b® printed on the console terminal^ m& the program will wait for 
commands via the eonsolet 



) 



) 



290 REQUiaiJMENTS 
2sS EOUIPMKNT 

This diagnostic was written to run on all models of the PdP-U 
computer? including the L5i«iu one to fourtv eight i^A36 terminals^ 
Connected thru a single line asyncronous interface (dlu*a thru E* 
Olill«Wg OLVil)| may be tested^ Bk of memory is required^ 

h hardware switch register is supported, but not required^ ) 
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2^2 OPTIONS 

Th® following options ar© tested bV this diagnostics 

hSQii/kPi Character seti 
Selectivt Addressing Option, 
Auto»AnswerbacR Option^ 
Xop«of«»form Option» 
Horizontal & Vertical Tab Optlon« 



2tl RELATEU PROGPAMS 

Although sow® error checKlng is done# this diagnostic does not 
functionally test the basic la36 terminal? nor the terminals 
interface. 

Therefore the basic laj^ tertrinal diagnostic^ MDEC«ll-DZiiAC-*# 
and the DLU»#/DLV«il interface test should be sucessfully run prior 
to this dlagnostiCf Also any other applicable processor/n^ewory testst 



I90 LOADING & INITIAHEATION 

This diagnostic rpay be loaded using the standard procedures for 
paper tape? or via xxdp media. This diagnostic will not run in 
Chained mode because manual intervention is required. The absolute 
loader area is preserved. 

This diagnostic self sizes th^ system as far as the interfaces? 
and their interrupt vectors* The only operator modifications to be 

made arei 

le the location ^tImkh*' i^hich is a CPU dependent time contstant, 
see listing of delaxm Routine, 

TIMKPI ,wORP 554 fSET FOR U/35 • 11/40 

|5ET TO 202 IF U/03 
I 251 U/05 • U/10 
I 314 U/15 « U/20 
I 2127 11/45 BIPOLAR • 11/55 
I 1237 tl/45 • M05 » 11/70 
f 755 U/45 

OKLA^TS ,v«ORD fDELAY TIWE BUfFEP 

2, any of the preset device address to accomodate a non«5tandar<3 
interface address? (See Sect 7,0 for details) 

3, location «'wiDTH* if other than 132 cOL PAPER is being used, 
(see section 4,3), (common for all terminals) 



Th 



e Initial starting address is 200(8)^ and all restarts at 1372, 
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#f0 CONfROli & TEST aEl^ECTJON 

Tht diagnostic wili agK (via tht consox®) it eeniol® eentroi Is 
atilrtcSt Answtr ""Y" if ^ou want to use interactivt eornw®nas# 
otfttrwist typ© ^N^ for switch rtglsttr control^ 

If *¥* is tSfPtd ® mtnu of available corrrpanas is printta on tht 
confoiti ana the program win wait for command inpyt^ If ^N*' is typta 
th§ pr®«raw will print a listing of th@ line Clnttrfact) ta&l®f tntn 
halt tor tftt Operator to gtt tht switchts to th^ a®sir©a paramtt@rSf 
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4tl SWITCH REGISTER CONTROL 

whtn SWITCH REGlSTEg Coi^TROL is Selected tht program will halt* 
set t^t switehts t© tat atsirtd modtf then press C0ntinue« The 
prograw« will checic tht entry and if a specific test is to be runi or a 
specific line is to b% tested the prOQra"^ will halt again» Knter the 
desired imt/test data in tn@ switches^ the press continue* 

TO change parameters the test must be restarted at loc 13729 

hhh of the switcn functions art also available under console 
control modtg tste sects ^929^9^19 

SWITCH HEGlSTliP BIT DEFINITIONS 
rXHST WORD NODE SEIiKCTION 

HALT ON ERROR 
CONTINUE AFTER REPORT 

LOOP AFTER ERROR IS DETECTED 
DON^T LOOP 

1NHI8IT ERROR REPORTS 
PRINT ERROR REPORTS 

PRINT INTERFACE TABLE 
DON'T PRINT TABLE 

INHIBIT ITERATIONS 
NORMAL RUN 

RUN ALL TESTS JN SEQUfeiNCE 
RUN SELECTED TEST ONL^ 

RUI«^ ALL AVAILABLE LINES 
RUN SINGLE LINE ONL^ 

SECOND WORD LINE AND TEST NOt 

BITl§ * BIT8 SELECTED LINE NUMBER C^0«57) 

B1T7 ^ BIT0 SELECTED TEST NUNBER ( 0«5 ) 



4, a CONSOLE CONTROL 

m%n console control is selected a ftienu of available commands is 
typed on the console terminal » The prQ^ram will wait for commands to 
be entered thru the Keyboard^ 

Enter one command Per line# followed by a carriage return. To 
terminate command input and start execution type an ALimode or Escape, 

TO regain control once execution has begun type a CTL-C» The 
program will respond *.ith "HEADy^^ ^ou can now enter the desired 



81T15 


«1 

B0 


CUP) 
CDOWN) 


BIT14 


^1 

mid 


CUP) 
CDOWN) 


©ITU 


»1 

80 


CUP) 
CDOWN) 


SlTli 


m% 

3@0 


CUP) 
CDOWN) 


BITII 


si 


CUP) 

CDOWN) 


BlTd 


mi 

S0 


CUP) 
(DOWN) 


BITS 


S0 


CUP) 
CDOWN) 



commands just as In startup^ 



4^3 COMMANUS 
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There aire two types of conimands available* interactive commands! 
and static comroands* 

hhh static commands can only be entered while in '•command MOde«y 
that is during startup after rREADy* is printed on the console^ or 
after the operator has invoked co»t»mand mode by typing a CT|j»c and the 
program has printed ^REkOY^^ 

interactive commands can be entered at any time? and are 
essentially the same as the switch register bits 15,14,139 

The available Commands ares 

S (STATIC) Single Line Nodet Test a single 

device« Line 00 is defa^ltt Use add command 
to select th^ desired line, 

M (STATIC) Muiti Line Mode« Test all lines 
present and not deselectedt 



Q 



Wn 



(STATIC) Sequence tnru all tests? starting 
with test feJe 



Bn (STATIC) Hun test ^« 

Dn (STATIC) Deselect or nrop trom testing 
interface line n^ (see t command) 

An (STATIC) Add line N^ Clear out the 

error count for line n, and reselect the 
line for testing, m single line "^ode 
sets N as current line to test, 

T (STATIC) Type out a listing of the intertace lines 
present on the system, the vector address at 
which the device interrupts* and weather or 
not the Una is selected. 



(STATIC) Changes location ''width* to n, used 
to control output of terminal tests, fcnter n 
as an octal number 32 to 204, (132 decimal) 

CTL«L (interactive) Loop on error, if an error 

is detected the program will start looplnct 
on the test section which caused the error? 
and continue to loop until a Klear 
command is Issued, 

in command mode type an l. 
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CTL^'H Clnttracive) Halt on errore ^111 cause the 
program to h®it aft@r the error message Is 
printed, (assumelng trror printouts are enabled), 
m command mode type or Ht 

CTl.»K cinttraetlvt) KXear • resets both the H and h 
commands (Don*t halt# Don't ioop)« 
In command mode type a c, 

CTL«N (interactive) wo Error reportst inhibits 
the printing ot normal error messagest 
In command mode type en N® 

CSh^P (interactive) Print error reportSt all report 
messages will be printed on the console^ 
m command mode type a P« 

CTL»G (interactive) will cause the program pcflags 
to be displayed on the console for 
trouble shooting purpostst See listing tor 
bit detinitionit 

iSC EKit command mode it start execution of 
the diagnostic test(s)e 

CTL-^C Heturns test to command mode, 

All operations in progress stops 



4^4 EXAMPLES k HINTS 

Test numbers thru s m^y be selected to run individually on all# 
or any terminal® 

ALL tests can be run sequentially on all or any termlnala 

Tests can be run sequentially on a teminal# but there is little 
chance that any terminal will have more than one or two of these 
Options installed^ sequencing all tests will probably result in 
numerous errors from trying to test non-existant options. 

It a line gets more than 16 errors it will be deselected by the 
program and a message will be printed on the console* if the line is 
the only one being tested it will automatically be re^selectedg 

Example I, the commands to select test #4 to be run on all lines^ 

READY 

B04(CR) « Hun test 4 

M(CH) « Multi line mode 

wl2w(CR) » set paper width to I'ife? 

$ « ESC • echoed as s 
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Exiwpit 2, th® commands to run all tests on line 
noi 06i witft Halt en trror sets 

PEAPy 

G(CH) « Sfqutnct tests 

SCCHJ m singli line woatt 

I^0$(ChJ » l^dd line #06 

H(CH) m Halt on error 

$ « KSC « echoed as $t 

EXAMPiiE 3g How do I run tests on I0 out of 12 terminalSs 

rirst you must be in command rPode« it a test is running type 
CTIj-sC, Tne prograi^ will respond with "f^eady", now type D nn 
(cr) to deselect line number nn9 Repeat tor each additional 
imt to be dropped trom the ttstSt now select your test other 
paran^eters as in Example ig 

EXAMPLE 4t How do I restart a device which hai tit%n deselected? 

in eorpffiand mode type Ann (cr) where nn is the line number ot 
the line to be addede 

EXAMPLE Sg How do I loop on error® 

If the test is running type a Ctl«L» when an error is 
detected the program will start to loop on the test or subtest 
and continue to loop until a CTt^ti or Cxii^C command is issued^ 

If in command mode type h CCR)^ 

EXAMPLE 69 Can I set the ^width' constant different tor each 

terminali 

The constant «'width*' li the same tor all terminals^ although 
it may be changed any time you are in command mode« 



Sb^ scope or TESTS « 

This diagnostic will functionally test the following hardware options 
Of tn® LAje* 

U secondary character set option aPL/aSCH character set 
selection 

2® Selective addressing option 

3i Auto®answer back option 

4f TOP of forms option 
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5t Horizontal and Vertical tabluation option. 

Tht diagnostic will do cursory testing of the basic intertace^ and 
basic LA36 logic* It is assumed that the baiic intertace^ CPU/memory^ 
and hh3^ ttsts have been run successfuilyt 

Due to the nature of the hardware under test most error checking wiii 
be by vlsu«l inspection of the terminal output by the operatort 

Description Of Tests 



Sal Ttst Secondary Character Set® 

This test is an output only testf no terminal feed back Is received. 

The ttit prints on each terminal alternating lines of ASCII character 
set; and hPh character set® 

Output Of characters per line will consist of char codes 40 thru 176 
unless the paper width limit ig reached firsts 

Output formati 

PRINAPX«p«®CA5CU CHARACTER SET) 
SECONDAR¥»«CAPl» CHARACTEH SET) 

This output is controlled by the "width" ot the papers See ^ command 
description, 



5t2 Test J Selective Addressing option 

This test will alternately send out a select code# followed by it's 
ASCII Equivelenti for all possible select codes (20 thru 177)^ 

This test will also desiect all terminals and try to output a "this 
should not print** message^ "aU terminals should be off« 

This test will also try to print «this should not print" messages 
after transmitting ''Hub'' select character sequencesi and no select 
codes seQuenctSf 

Valid terminal output should bet select Recognized s /NNCGroup select 
code) /NNdndlvidual Select code)/ 

i«jh€re nn represents the select codes recognised by this terf^inaig if 
the group select code and individual select codes are set to the same 
thing them only one /nh/ should appear 9 

More than two /nn/ codes printed indicates a logic failure in the 
decoder section of the option, or possibly interface to terminal line 
profalemss 
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hn^ Of the «this should not prints mtssag® that appear on tht terminal 
indlcttt a failure ot tht itltctlon logic^ 



) 



§i3 ftst 2 Auto Angwtr Bacfc Option 
This t@st is divldta into six subttstsi 
Subtest mi 

Th® first subtest is actually a sizing routinet The terfwlnai should 
respond to its unique selection code with an answerback when polled. 
This test has no way of knowing what the answer back isi nor any way 
Of pre«8electing* its unique selection code* Therefore subtest •! 
will try all legal selection codes to see It it can cause an answer 
back to be transmitted, it one is received the program will store the 
select code associated with the response in the lint table for turture 
testing. 

Subtest «2 

will gee if any answer back has been received? and check its lengths 
the message should not exceed 20 (10) characterst Subtest 2 will 
print the ascii message on the terminal, and an octal representation 
Of the characters Cto verify non prlntables are being transmitted 
cori-eetly? and as a trouble shooting aid if bad data is being sent out 
from the switches) » 

Subtest »l 

will read the answtr back ten tim@s to verify reliability ot the datai 
and imes^ 

Subtest *4 

wflll try to cause transmission of the answer back in response to a 
broadcast codet 

Single Line ^^ode » Subtests 5^ and 6t 

Subtest -5 

The test Will request the operator to press the ^hgre-is*' Rey# then 
check for answerbackg 

Su&test «6 

The test will request the operator to type ^cTl®e% then check for 
answer backf 

The Operator fT>ust verity that the message echoed back to tn^ ter^^lnal 
is corrects by comparing it to the data switch conf Iguration^ 
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5^4 T«st 3 Top Of Forms option 

This ttst Is divldfd into two subtests^ one for multl line mode# the 
other for single line mod®e Operator intervention will be required 
for the single line teste 

it ^uiti line modes 

This subtest will assume a standard forw of 11 Inches being 
ustdt 

The test will Issue a torm feed^ then print a line of dashese 
This rr/dashes Is repeated 3 tlmes^ 

The operator snouid vtrify correct operation bV checKlng tor 
a line of dashes at the same place on each page« 

2t in single line mode# This test win require the operator to 
set the forms length switch to the value requested. The test 
will then do three form feeds at each length setting^ 



SjS Test 4 Horizontal Tab option 

This ttst will adjust lt*s output to conform to the paper width* 
Change location «wldth« to the appropriate value before starting test* 
(preset to 132 colg) Notei see w command description. 

The test will print a reference line for visual verlf lcatlon» The 
line will look nice thlsi »»*» tVt8,«,v»t «, tV,e,,,V,«, ,, 

Tabs will then be set corrospondlng to the location of each v, Tne 

test will then Issue a tab and print an x, tab then x etc until the 

line is complete. Three lines of x*s win be printed. All x*'s 
printed s^®«l<5 be aligned with the reference line V^g, 

This will b% repeated for various c^) values of tab spacing^ 

KKample of output 

90fffV, ,e, ,V, ,,,,¥,, 9,, V^, 9,9V, ,9^9 



X 
X 
X 



X XX 

X XX 

X XX 
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SgS Ttst S Vertical Tab opti 



on 



This ttst |i divia®a into two su&ttstS| on® lor multi line mode* the 
othtr for iinglt iint rood®, Tht slngi® Une mode ttst requires 
operator Inttrventlont 

Hultl iine iDode subtest 

nil set tabs at intervals of l linet 2 lines, 3 lines etct up to U 

Une«5 The test will then issue b vert, tab then print a line of 

Gtsntgi tJ^tn repeat untii l full page has been done^ Three pages of 
output ir® run for i pass of tests 

^i!!^^!,^^^® wofe ttiting involves the operator to set up the forms 
eontroi t© U inch formsi and then proceeds with the same subtest as 
for Riuiti line fnod@« 



§90 EBnOn HEPORTING 

There wm ^e four basic sources of error messages» rirst the systew 
sistri second the command decoden and third the diagnostic testSf and 
the I/O driverst 



6il Diagnostic Tests 

hll test error messages will be 2 lines of outputt A standard forwat 
lin©# sftOwn belowf and a descriptive w^essage telling what went wrongt 

stdg rmtti #eRHOH xxy test xy line zi 

Where xxx » the error number locai to the current test, 

¥Y ^ tht current test nuwbert 

2S m the line under tests 

an exawpie of a descriptive rnessage i 

^NO ANSWEHBACK MEASSAGE BECEIVKD 

AS each errOr is handled a routine will update an errOr count for the 
failing line^ if 16 errors are accumulated on a llnei that line will 
be "deselected" and the following message will be digplayedt 

EXCESSIVE ERROBS ,, him XX DHOPPED, 

If the line under test is the only line being tested the program will 
automatically re^select the line^ zero the count, and continue testing 
after typing the followlngi 

LINE HE«SEIiF:CTEU for TESTg 
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692 I/O Driver 

If tht 10 Driver tindi no avaiiatoi® line to ttst a messagt wiia. be 
dlsplaytd and then control win return to the »r€ady« state, 

NU himS AVAILABliE FOR TESft 

#317 Multl line drivtr error« 

ErrOr "messages tagges as #377 indicate a tallure during an i/o 
drivtr operation! sucn as a failure to interrupt on transmit to a 
ttrwinal with tne interrupt enable set. 



#376 



Sam® as #377 ticctpt a single line orlvert 



6^3 command Decoder 

Consoit terminal command errors w^iii bg nandled by a CHDERH module & 
win output a line oi ???? If the Input was Invalid^ 

If a line selection command tires to add cre-seiect) an Invalid or non 
tMistant line a m»line luyhhV) message will be typed. 



6t4 System siser 

If during tne sizing operation the sizing routine detects a failure of 
the Interface to Interrupt It isill be reported, 

eXI ^NO INTEKHUPT ON TXMlT Ll^E 27^ 



7^0 PKOCiDURES rOR MON^STANOARD DEVlCESt 

This diagnostic can be modified for use on devices that ha^e 
non»gtandarci interface addresses by replacing an unused address In the 
line table with the address of the interface line to be testedf 

The table Is preset to the standard DLU«A|B^CpD|C addresses, (77^610 
« 776170 & 776500 « 77667M)f and the console address 777560, 

NO modification need be made because of non«standard interrupt vector 
addresses,, the diagnostic sizes each address for presence on the 
systemi. and inserts the interrupt vector data into the table at run 
timet 

NOTfe;i The table addresses are not in ascending order, rather it has 
been optomiged fOr relative system size by having the most 
commonly used addresses at the head of the tabie^ PtiU-A^B 
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and DLU®C#Oii; address are mtrged togethere 



CZLArA0 liA3& TERM XSt MACXU 30AU052) i^J«jAN«77 fe>0S01 
CZbArAePil 03«»JAI^«.78 11120 TABLE OF tONTKMTS 

BASIC OKflNXTlONS 

ACTU HOOKS 

TEST CONTROL & INITIALIZATION 

LINE CONTROL & INITIALIZATION 

SWITCH REGISTER ROUTINES 

CONSOLE TERMINAL ROUTINES 

ERROR S, REPORT ROUTINES 

INTERFACE SIZER ROUTINES 

EMT HANDLER 

I/O PRIVERS 

TRAP ROUTINES 

CONVERSION ROUTINES 

LAJb OPTION TESTS 

STORAGE k CONSTANTS 
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I* 

J#THI5 PROGRAM WAS ASSEmBLiEO USInG IHE PDP"ll mAimDKC SYSmAC 

|#PACKAGIi, (MAINl)EC"U"DiiQAC"Cj)# JAN J9, 1977, 

I* 

$TNai 

SSWRal60000 ifHALT ON EHHOR, LOOP ON TtSl* INHIBIT tKKOR J^POUI 
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00260 
00280 
00300 
00320 
00340 
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00380 

00400 

00420 
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##«*»» OPERATING INSTRUCTIONS »#»*»*#»»»»«»*■»*»«#»«»#«»«»»»»»«» 

„1» THIS TEST ASSUMES THAT THE BASIC IintKtACK 
LOGIC TESTS 6> BASIC LA36 FUNCTIONS TEST 
MDEC^U-DZLAC-X HAVE BEEN HUN SUCESSFULU^, 

TIMING FOR ALL TESTS IS DEPENDENI UN CPU TtPt, 
THE TIMER IS SET FUR AN U/40.,,IF THIS IS 
.<iOT THE CASE CHANGE LOCATION "TIMER" 
ACCORDING TO THE TABLE SUPPLIED IN THIS LISli^JG. 

..2, THE DIAGNOSTIC wjlL STaHT BY ASKING IF THE npf-HAlOH 

WANTS TO USE CON&OLE TEhMINAL CONTROL, Ai^S^Eh Y UH N, 

IF y IS ENTERED* A "MENUE" OF AVAILABLE COMMANDS IS 
PRINTED ON THE TEHMINAL, AND THEN fHE PPUGHRK. «A1T3 
FOR INSTRUCTIONS THRU THE KFYBOAHO, 

IF N IS ENTERED* THE PHOGPaH ^lyL PRINT A LlSllivG OF 
INTERFACES B¥ LINE NUMBER, THEN HALTS, SEl THt S-NiTCrttfc 
TO THE DESIRED MODE AND PRESS CUwilNUE, TnE FROGHAfi /.ILL 
DECODE THE SWITCH REGISTER, AND IF RU^JWr^G A vSEi.ECIhr) 
TEST, OR A SELECTED LINE, WILL MALT AGAIN, 
ENTER THE DKSIRED TEST nQ, IN IHE LOw OPUEH BYTE, AwU-Uk 
THE DESIRED LINE NO, IN THE HIGH OnnEH BYTE, PRESS CU-^IIhUE, 

IF NO HARDWARE SWITCH REGISTER IS PRESEJl ON Tht SJfMtN 
THE PROGRAM wILL USE LOCATION 17b AS A SOFT'-AKt S^UCh 
REGISTER, CONTROL V^ILL DEFAULT TO IHE Cf'^SOLfc J 



TO CHANGE MODES TYPE CTL-C. 

THE CONSOLE WILL RESPOND WITH READY,, 

ENTER YOUR COMMANDS FOLLOWED HY AW CSC, 

INTERACTIVE COMMANDS SUCH AS CTL»G MAY HE t^'lEREl) 

DURING COMMAND, OH RUN MODES, 

IF MULTI«LINE MODE IS SELECTED, A lAHLt 

OF INTERFACE LINES WILL BE PRINTED, 

ALL LINES PRESENT WILL »E INITIALLY SELECTED, 

IF YOU ADD OR DROP LINES USE THE LINE NO, 

SPECIFIED IN THE LINE TABLE LIST, 
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78 
79 
80 

ai 

82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
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01160 

01180 

01200 

01220 

01240 

01260 

01280 

01300 

01J20 

01340 

01360 

01380 

01400 

01420 

01440 

01460 

01480 

01S00 

01520 

01540 

01560 

01S80 

01600 

01620 

01640 

01660 

01680 

01700 

01720 

01740 

01760 

01780 

01800 

01820 

01840 

01860 

01880 

01900 

01920 



>»»»##» SWITCH REGISTER BIT DEFINITIONS »»»»**»»»»»»##«»*»*»»»#« 

BIT15 aj (UP) HALT ON gRBUH 

80 IDOIwNJ CONTINUK itfTER REPORT 

B1T14 81 (UP) LOOP AFTER FRROR l5 DETECTED 
80 (DOWN) DON'T LOOP 

BITU 81 (UP) INHIBIT ERROR REPORTS 
80 (DOWN) PRINT ERROR REPORTS 

BITU «l (UP) PRINT INTERFACE TABLE 
80 (DOWN) DON'T PRINT TABLE 

BIIU 81 (UP) INHIBIT ITERATIONS 
«0 (DOWN) NORMAL RUN 

BIT6 81 (UP) RUN ALL TESTS IN SEQUENCE 
«0 (DOWN) BUM SELECTED TEST 0^b)l 

BITS Bl (UP) RUN ALL AVAILABLE LINES 
80 (DOWN) RUN SINGSLC LINE ONLV 

SECOND WORD ENTR^ VIA SWITCHES 
BIT15 « BIT8 SELECTED LINE NUMBER 
BIT7 • BIT0 SELECTED TEST NUMBER 

««»»»»«« TEST ASSIGNMENTS »»#»«»»»»»»««««»»»»»»»«#«####««ij<j4» 

Test secondaby chaBacteh set 
test 1 selective addressing opi'ion 
test 2 auto answerback option 

TEST 3 TOP or FORMS OPflON 
TEST 4 HORIZONTAL TAB OPTION 
TEST 5 VERTICAL TAB OPTION 



.^ 



CZLArA0 LA36 TERM TST MACXH 30A(1052) 03-JAN-77 
CZLAfAgPU 03»JAN»78 11120 



00101 PAGE 1«J 



98 
104 
105 
106 
107 
108 
109 
110 
HI 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 



000020 
000006 
000004 
000200 
000015 
000003 
000000 
000007 
000010 
000013 
000014 
000016 
000020 
004000 
100000 
000010 
000005 
004000 
020000 
040000 
000033 
000003 
000001 
000002 
100000 
000200 
177776 
P00040 
020000 
005726 
022626 
000400 
000100 
040000 
000200 
000340 



000200 
000240 
000240 
003000 
000006 
000002 
000010 
000340 
000017 
000016 
000001 
000002 
010000 
020000 



01960 

02080 

02100 

02120 

02140 

02160 

02180 

02200 

02220 

02240 

022b0 

02280 

02300 

02301 

02302 

02303 

02304 

02305 

02320 

02340 

02360 

02380 

02400 

02420 

02440 

02460 

02480 

02500 

02520 

02540 

02560 

02580 

02600 

02620 

02640 

02660 

02680 

02700 

02720 

02740 

02760 

02780 

02800 

02820 

02840 

02860 

02880 

02900 

02920 

02940 

02960 

02980 

03000 

03020 

03040 

03060 



I LOCAL PROGRAM EQUATES 



ABO s 


B1T4 


ACK a 


6 


ADDC 


s BIT2 


ATTN 


a BIT7 


CR s 15 


CTLC a 


J 


CTLCNT 


a 


CTLG s 


7 


CTLH s 


10 


CTLfC s 


13 


CTLL a 


14 


CTLN 8 


16 


CTLP » 


20 


DATAIN 


a BITU 


OLP a 


BITlS 


DROPC 


a BIT3 


ENQ a 


5 


EOL 


8 BITU 


EOP 


a BIT13 


EOT 


a RIT14 


ESC = 


33 


ETX B 


3 


FLAGl 


a BIT0 


ri.AG2 


a BITl 


HALTOE 


a BITiS 


HALTC 


a BIT7 


ICNT 


a -2 


INHR 


a BITS 


INHRPT 


a BIT13 


ISP a 


!»726 


ISP2 » 


22626 


LDONE 


a BITS 


LOOPC 


a BIT6 


LOOPOE 


a HITH 


PRI4 8 


200 


PR17 a 


340 


PB10 s 





SEL B BIT7 


NOP s 


240 


NOOP 8 


240 


MAJOR a 300«, 


POINT 


8 b 


PASCNT 


8 2 


RPC 


S 10 


NREO 


a 340 


SI a 1" 




SO a 16 


SOH a 1 




STX 8 2 




PPlNfT 


a BITi2 


TDONE 


a BIT13 



ILINE ABORT FLAG 



ILINE PRESENT f LAG 



I INC SP 2 
flNC SP 4 



IPRIORIT)^ 4 
» " 7 
f " 
ILINE SELECT FLAG 
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159 


100000 


160 


002000 


161 


001000 


162 


000200 


163 


000100 


164 


000040 


165 


000020 


166 


000020 


157 


100377 


168 


000004 


169 


177564 


170 


177566 


I7l 


177560 


172 


177562 


173 


000060 


174 




175 


104000 


176 


104002 


177 


104004 


178 


104006 


179 





030H0 


MERR 


s BIT15 


03120 


NEWTST 


a B1T10 


03140 


NEWWOD 


8 BXT9 


03160 


HKADY 


= BIT7 


03100 


SEQ 


B BIT6 


03200 


HULTl 


8 BITS 


03220 


awcTL 


8 BIT4 


03240 


PRINT 


8 BIT4 


03260 


MERRN 


» 100377 


032B0 


MFLAGS 


s 4 


03281 


TPS 8 


177564 


03282 


TPB s 


177566 


032B3 


TKS a 


177560 


03284 


1KB m 


177562 


03285 


TKV a 


60 


03300 


}«»«««« EMT CALL EQUATES 


03320 


TYPE s 


EMT 


03340 


PHTTBL 


a EMT+2 


03360 


ITHAP 


a EMT+4 


03380 


UELAYR 


a EMT+6 


03460 
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161 




000000 


182 


000000 


000002 


183 


000002 


000000 


184 


000004 


00000b 


185 


000006 


000000 


186 


000010 


000012 


187 


000012 


0^0000 


188 


000014 


007162 


189 


000016 


000200 


190 


000020 


007416 


191 


000022 


000200 


192 


000024 


001372 


193 


000026 


000000 


194 


000030 


006162 


195 


000032 


000000 


206 




000172 


207 


000172 


000000 


208 


000174 


000000 


209 


000176 


000000 


210 


000200 


000137 001102 


211 






212 






CD 






(3) 










H00204 


CIJ 




000046 


11) 


000046 


001102 


CD 




000052 


m 


000052 


020000 


11) 




000204 


213 




001100 


214 


001 100 


000240 
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BASIC 


DEFINITIONS 




03500 




,»0 




03520 




,*2 




03540 




HALT 




03560 


MACHEHI 


«*2 




03580 




HALT 




03600 




,4-2 




03620 




HALT 




03640 




INIPAP 




03660 




PRI4 




03680 




TXTRAP 




03700 




PR14 




03720 




RESTRT 




03740 




PRl0 




03760 




EMTB05 




03780 




PRl0 




04000 




» = 172 




04020 


SWTE5TI 


9 WORD 





04040 


SWLlNttJ 


8«iOHU 





04060 


SSkMRi 


.WORD 





04080 




JMP 


STAR1 


04100 










,SBTTL 


ACTll HOOKS 



JTHAP CAICHEH 



IBRCAKPOINT TRAP 

lUSED DURING SYSTEM SIZER 

HOT TRAP 

I USED BY TXMIT I/O DRIVER 

I POWER FAIL IHAPS TO RESIART 



rHOOKS REQUIRED BY ACTU 

SSVPCSg jSAVE PC 

,846 

^^*^'^' nnSKI L0C,4b TO ADDHESft ijh btkHl 

2^000 »|2)SET Luc, 52 To 200^0 

J I RtSTOht PC 





,^52 




.WORD 




»sg$SVPC 


04140 


9SU00 


04160 


NOP 



i * 
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216 








321 








322 








J23 


001102 






23S 


001102 


00000S 




226 








227 








228 








229 


001104 


012706 


001100 


230 


001110 


005037 


0161S2 


231 


001114 


005037 


016154 


232 


001120 


00S037 


016162 


233 


00U24 


005037 


016160 


234 


001130 


01273t 


016114 


23S 


001136 


01270S 


010352 


236 








237 








238 








239 


001142 


004737 


003006 


240 








241 








342 








243 


001146 


012700 


016772 


244 


001152 


104000 




24S 








246 








247 








24d 








249 


001154 


004737 


005640 


2S0 








251 








292 








293 


001160 


004737 


006126 


254 


001164 


104002 




299 








256 








257 








258 








299 


001166 


004737 


003350 


260 


001172 


004737 


003332 


261 


001176 


032737 


000020 


(9} 


001204 


001011 




262 








263 








264 








269 


001206 


012700 


017051 


366 


001212 


104000 




267 


001214 


012700 


017056 


268 


001220 


104000 




269 


001322 


012700 


017103 


270 


001226 


104000 




271 


001230 






272 


001230 


004737 


003332 


273 


001234 






274 








279 


001234 


032737 


00002^? 



04200 ,SBTTL TEST CONTROL & INITIALIZATION 

''4300 I ««»ff««««tt«ft ««»«»»«»««»«»«««« ««»»«»»««» 

04320 I , 

04340 STAHTl >»»#»»#«»«»*» TEST MONITOR »»««*»«»«#«« 

04380 RESET ;»«»«»««««««««««»««««»««»#«»«»«»«»»»««« 

04400 I 

04420 I PROGRAM INITIALIZATION SECTION 

04440 I 



) 







MOV 


•STACK, SP 






CLR 


NEXT 






CLR 


IN TEST 






CLR 


NXILIN 






CLB 


ONLIN 


016164 




MOV 


ilNBUFiPTR 






MOV 


IT00BLK,RS 


04580 


1 






04600 


1 SEE IF SYSTEM 


HAS A SWITCH REGISTER 


04620 


t 










JSR 


PCfSWRTST 


04660 


1 






04680 


1 PRINT 


test IDENTIFICATION MESSAGE 


04700 


1 










MOV 


»PROGID»H0 


04740 




TYPE 




04760 


1 






04780 


1 DETERMIN SYSTEM CONFIGURATION ^ 


04800 


1 BUILD 


A TABLE 


OF INTERFACE LINES, 


04820 


1 










JSR 


PCrBUiLP 


04860 


1 






04880 


1 Restore trap 


CATCHER FROM 100 TO 10( 


04900 


1 










JSR 


pocatcm 


04930 






PRTTBL 


04940 


1 






04960 


1 FIND 


OUT IF OPEKATOR WANTS TO USE 


04980 


J CONSOLE OR SWITCHS FOR CONTROL 


05000 


1 










JSR 


pc#getsrc 


05030 


5TART2I 


JSR 


PCCONSON 


001364 




BIT 


#SiNCTL,PCFLAG 






BNE 


50001S 


05060 


1 






0S080 


> PRINT 


A MENUE 


OF AVAILABLE COMMANDS 


05100 


1 










MOV 


eL3fR0 


05115 




TYPE 






MOV 


8HEADR1#R0 


05140 




TYPE 






MOV 


»COM5UM,R0 


05180 




TYPE 




5000151 






05220 


5TART3I 

50002*1 


JSR 


PCCONSON 


05260 


1 






001364 




BIT 


#SWCTL»PCFLAG 



) 
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C9) 
276 
277 
278 
(3) 
279 
280 
281 
282 
283 
284 
285 
286 
287 
(5) 
288 
(31 
289 
290 
291 
292 
C9) 
293 
294 
295 
296 
297 
298 
299 
300 
101 
302 
303 
304 
J05 
306 
C53 
J07 
308 
309 
(3) 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
334 



001242 001403 



001244 004737 
001250 000421 



001252 



001252 
001256 
001260 
001260 
001262 



012700 

104000 



000001 
032737 



001270 001001 
001272 000772 
001274 



001274 032737 
001302 001404 



001304 
001306 
001314 
001314 



001314 
001320 
001324 

001330 
001334 
001342 
001344 
001352 
001356 
001360 
001360 
001364 



104002 
142737 



004737 
012700 
004737 

004737 
032737 
001406 
042737 
004737 
000726 



001364 

001364 000001 

001366 000000 

001370 000000 



000200 001364 



0100011 001364 



k)10000 001J64 



002110 
020411 

007010 

001446 

004000 002032 

004000 ki02032 
0M1372 



000137 001172 



05420 
05440 
05460 
05480 

05520 

05560 



05620 
05640 
05660 



05700 



05780 
05800 
05820 
05840 

05870 
05872 
05874 



06020 
06040 
06060 
06080 
06100 
06120 
06140 
06160 
06180 
06300 
06220 
06240 
06360 



BEU 500048 
I IF IN SWITCH CONTROL GET CONTENTS OF S*^ HEG, 

JSR PC»GET5WS 

BR 50005$ 
5M004SI 
» 

I IN CONSOLE CONTROL SIGNIFY READY 
t AND READ COMMANDS FROM THE CONSOLE, 
I 

MOV »RDY,R0 
TYPE 



50006SI 



WAIT 

#ATTN,PCFLAG 

500078 

50006S 
50007SI 
I 

J PRINT THE LINE TABLE IF REQUESTED 
I 

8PBINTT,PCFLAG 

50010S 

PRTTBL 

SPRlNTT^PCf-LAG 
5001081 
5000551 
t 

J SET UP THE I/O DRIVER AREAS 
; SET UP & EXECUTE HEQUESTED TE5IS, 
I 

PC»LINMON 

8ALLON,R0 

PC,Mxypfc 



an 

BNE 
BR 



BIT 

BEU 



BIC 



JSR 
MOV 
JSR 



■■^ 



JSR 
HIT 
BEU 
BIC 
JSR 
BR 



PC»TSTCTL 

#EOL|CFLAGS 

500035 

#EOL,CFLAGS 

PCHESTRT 

500023 



I ISSUE A SELECT ALL CCM'^A'^U 
I IN CASE THERE ARt. SfcLtCilVt 
ITEPMINALS ON Llut, 



JmP START2 



» 

« NOTE,,, TYPING CTL-G WHILE IN CONSOLt 

« CONTROL MODE WILL CAUSE THE 

* PCFLAG WORD TO HE PHINIBD, 

CTLBLKI iPRoGRAm CONTROL BLOCK 

PCFLAGi jWORD I jPROGRAM CONTHOL 

TESTNOi ,WORD |TESTNO 

LiNENOl 5WORD ILINENO 



1 
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333 








0b2»^ 




336 








06281 


PCrLAG BIT 


DEFINITIONS 


327 








06282 




328 








062a3 








J29 








06284 


BIT 


15 


HALTOt; 


330 








06285 


? BIT 


H 


LOOPOE 


331 








062t«6 


BIT 


13 


INHRPT 


332 








06287 


BIT 


12 


PRXNTT 


333 








06288 


BIT 


U 


UATAIN 


334 








06289 


BIT 


10 


NEWTST 


333 








06290 


BIT 


9 


NEWMOD 


iib 








06291 


BIT 


8 


LDONfc 


337 








06292 


BIT 


7 


ATTN 


338 








06293 


BIT 


6 


SEti 


339 








06294 


BIT 


5 


MULTl 


340 








06295 


BIT 


4 


SWCTL 


341 








06296 


BIT 


3 


DROPC 


342 








06297 


BIT 


2 


ADDC 


343 








06296 ] 


BIT 


1 


FLAGZ 


344 








06299 J 


BIT 





FLAGl 


345 








06300 








346 








06301 ] 








347 








06305 








348 








06306 








349 








06307 








JS0 








06319 1 




3SS 








06320 1 


RESTART 




352 








06340 1 


#««»•»»■&#■»«■»■»«»» 


393 








06360 








354 


001372 


012706 


00U00 


06380 ReSTB'J 


1 MOV 


#5TACK,SP 


353 


001376 


005037 


016152 


06400 




CLR 


NEXT 


356 


001402 


005037 


016154 


06420 




CLR 


INTEST 


357 


001406 


012737 


000001 


001364 06440 




MOV 


#l,PCFLftG 


358 


001414 


005037 


016162 


06460 




CLR 


NXTLIN 


359 


001420 


005037 


016160 


064B0 




CLR 


ONLIW 


360 


001424 


012737 


016U4 


016164 065W0 




MOV 


#INBUr,PTR 


361 


001432 


004737 


006126 


06520 




JSR 


PC»CATCH 


362 


001436 


000240 




06540 




NOP 




363 


001 44» 


000005 




06560 




RESKT 




364 


001442 


000137 


001230 


06580 




JMP 


START3 



HALT ON EHHOH CSw-lb) 

LOOP ON ERROR (S-'.-l4) 

INHIBIT REPORTS (S^-JJ) 

PRINT TABLE (Sw-12) 

DATA IN FflU'' KBD, 

CHANGE IN TEST NQ, 

CHANGE I(^ wODE, 

END OF LINE TABLE HErtChEU 

ATTENTION inilliU 

SEQUENCE TESTS mouE 

MULTI LINE MOOE, 

CONTROL VIA SWITCHES^ 

DROP LINE COMMAND 

ADD LINE COMMAND 

MODE 3 NO CURRENT 1/0 TO CUwSOLt 

1 = IW COMMAND INPUT i^ODE 

2 3 I/O TESTING OK CONSOLE 

3 = 1 



{REINITIALIZE EVEH^TING 
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369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
181 
382 
383 
C9) 
384 
385 
386 
387 
388 
389 
390 
C9) 
391 
392 
393 
394 
395 
396 
397 
398 
C3) 
399 
400 
401 
402 
(9) 
403 
404 
403 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 



001446 013737 

001454 013737 

001462 004737 

001466 004777 



001472 
001500 
001S02 
001510 
001516 
001524 
001532 



001556 
001562 
001570 
001572 



001572 
001600 



001602 
001606 
001614 
001632 
001630 
001634 
001634 



5^32737 
001414 
017737 
042737 
042737 
053737 



001S32 032765 

001540 001414 

001342 016337 

001550 016537 



004737 
042t65 
000421 



032765 
001415 



005265 
042765 
052737 
016537 
004737 



001366 
016152 
002056 
014464 



0000^-4 
000006 



005124 
100377 



00000 2 
020000 
020000 
000002 
005436 



016152 
016154 



014416 
003777 
17 4000 
016100 



100000 000004 



002032 

0020J4 



020000 000004 



000004 

002032 
002036 



06680 
06700 
06720 
06740 
06760 
06780 
06800 
06820 
06840 
06920 
06 940 
06942 
06944 
06946 



000020 001364 



016100 
016100 
001364 
001364 



001634 032765 000001 000010 



07002 

07004 
07006 



07062 
07064 
07066 



07082 

07084 
070B6 



07222 
07224 
07226 

07228 
07230 
07232 

072J4 



TSTCTL THIS SECTION CONTROLS TEST SELECTION* TEST 

SEQUENCING, AND INTERFACES TO ERROR AND REPOh r 
MODULES AS REQUIRED BX THE TEST MODULES, 



TSTcTLI MOV 

LOOPli MOV 

JSR 

L00P2t JSR 

f 



TeSTNOiNEXX 
NEXT, INTEST 
PCjSUTEST 
PC#iTESTAD 



J GET TEST ^10, 

JGET CUHPEwT TEST ^U, 



nSTAKT TEST 



CHECK FOB EHROR FLAG FROM TEST 



BIT 


»SlNCTL»HCFLAG 


BEQ 


500US 


MOV 


§Sk*:R,TEMP 


BIC 


«3777#TEMP 


BIC 


n7400fc.#PCFLAG 


BIS 


TCMP,|»CFLAG 


50011 S| 




BIT 


#ME«B»MFLAGS(R5J 


HEQ 


50012S 


MOV 


MrLAGS(R5),CFLAGS 


MOV 


POINTCRb)»TSCPTR 



I CALL ERROR HANDLER ROUTINE 

I 

JSR PC#EPROR 

BIC #MERRN,MFLAGS(Rb3 

BR 50013S 

50012SI 

I 

I See if TEST IS REPORTING DONE CONDlTIOi^ 

I 



BIT 

BEQ 



STD0NE#MFLAGS(R5) 
50014S 



i'^^date The PaSs coumt then report end of pass 



INC 
BIC 
BIS 
MOV 
JSR 



paScktcrs) 
#td0ne,mfla65cr5) 

#E0P,CFLAG5 

PASCNT(R5)#TSCCNT 

PC#REPORT 



50014SI 

5001381 



I If LOOP ON ERROR IS SET AND AN ERROR IS 

fDETECTED THE ERROR HANDLER WILL MAKE THE 

jHETURN ADDRESS OF THE TEST ODD , 

I 

ICHECS^ FOR ODD ADDRESS 

I 

BIT SBIT0,RFCCR5} 



IN LOOP MODE, 9 



m 



CZLAfAa LA3b TERM T5T MACT^U ili>AH^52) 03«JAn«77 00101 PAGE 1-10 
CZLAFSbPU 03»JAN«78 lil20 TEST CONTROL S. INITIALIZATION 



(93 


001642 


00141 J 








421 










07242 


422 










07244 


423 










07246 


424 










07246 


425 


001644 


032737 


040000 


001364 




19) 


001652 


001006 








426 


001654 


04276S 


000001 


000010 




427 


001662 


016937 


000010 


016156 




428 


001670 










429 


001670 


000456 








(3) 


001672 










430 










07342 


431 










07344 


432 










07346 


433 


001672 


026965 


000002 


000000 




C9J 


001700 


003447 








434 


001702 


092737 


040000 


002032 




439 


00ltl0 


00S037 


002036 






436 










07402 


437 










07404 


438 










07406 


439 


001714 


004737 


009436 






440 


00lt20 


01696S 


000002 


000000 




(6) 


001726 


066565 


177776 


000000 




441 










07442 


442 










07444 


443 










07446 


444 


001734 


032737 


000100 


001364 




(9) 


001742 


001423 








445 


001744 


013737 


016152 


016154 




446 


001752 


005237 


016152 






447 










07520 


448 










07522 


449 










07524 


450 










07526 


451 










07528 


432 


001756 


023727 


016154 


000003 




(9J 


001764 


003407 








483 


001766 


005037 


016152 






454 


001772 


092737 


004000 


002032 




459 


002000 


000207 






07600 


436 


002002 


000402 








(3} 


002004 










457 


002004 


004737 


002056 






458 


002010 










459 


002010 


000402 








(3) 


002012 










460 










07682 


461 










07684 


462 










07686 


463 


002012 


004737 


002056 






464 


002016 










465 


002016 


000403 








C3) 


002020 










466 










07742 



BEQ 



500153 



1 IF THE LOOP ON kRROH IS TURNED Off THEN 

I CONTINUE TtST AT THE NEXT SUBTEST, 

I 

BIT I»LOOPOE»FCFLAG 

BNE 50016S 

BIC »BIT0,BPC(Rb3 

MOV RPC(R5)»TESTAD 



50017S 



500I6SJ 

50015SI 

» CHECK TO SEE JF THE ITERATION COUNT IS COMPLETED 
t 



CMP 


PaScNTCR5)»cTLCnT(B9) 


BLC 


50020S 


BIS 


#EOT,CFLAUS 


CLR 


TSCCNT 



I Report end of test condition 
1 

JSB PCfREPORT 

MOV PASCNT(H5)#CTLCNHR5) 

ADD ICNT(R5)#CTLCNHB5) 

I 

I IF IN SEQUENCE TESTS MODE SET UP NEXT TEST 

I 



BIT 


SSEOiPCFLAG 


BEQ 


50021S 


MOV 


NEXTiINTEST 


INC 


NEXT 



I IF NEXT IS A NON EXISTANT TEST SET EOL 

I AND RETURN TO MONITOR FOR NEW COMMANDS 
I 

CMP INTeST#«5 

BLE 500228 

CLR NEXT 

BIS #EOL»CFLAGS 
RTS PC 

BR 50023S 



50022$! 
5002361 



JSR 



BR 



PCSUTEST 
50024S 



50021$! 

I SET UP Test address foh the same test again, 

I 

JSR PC#SUTEST 
500248! 

BR 500259 
50020$! 
f 
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467 








07744 


1 RKTUpN TO TEST VIA ADDRESS SUPPLIED BY TEST 


468 








07746 


1 








469 


002020 


016537 


000010 016156 




MOV 


RPC(R5 


»TESTAD 


470 


002026 








5002581 








471 


002026 








500171! 








472 


002026 


000137 


001466 


07820 




JMP 


L00P2 




473 








08160 










474 








08180 


>»«*«»»«»»»»» 






475 


002032 


000000 




08200 


CFLAGSl 


.WORD 





J FLAGS 


476 


002034 


000000 




08220 


TSCPTHi 


,W0RD 





JPOINTEK 


477 


002036 


000000 




08240 


TSCCNl'i 


,WORD 





IPASCNT 


478 








08260 










479 








08300 










480 


002040 


010164 




08320 


TSTbLI 


TEST0 




1 Table ok test addRe^ 


481 


002042 


010444 




08340 




TESTl 






482 


002044 


011526 




08360 




TEST2 






483 


002046 


013700 




08380 




TEST3 






484 


002050 


014652 




08400 




TEST4 






485 


002052 


015154 




08420 




TESTS 






486 


002054 


177777 




08440 




-1 






487 








08441 










488 








08442 










489 








08443 










490 








08444 










491 








08445 


l*«»«««»»«»** 






492 








08446 


ISUTESI 


INITIALIZES THfe TEST AUUHE5S PoiNlER 


493 








08447 


1 


FOR TEST » IN 


'INTEST' 


494 








08448 


j«#»»»»#»»«»« 






495 








08449 










496 


002056 








SUTESTi 








497 


002056 


006337 


016154 






ASL 


INTEST 




498 


002062 


012700 


002040 






MOV 


•TSTBL* 


H0 


(6) 


002066 


063700 


016154 






ADD 


INTEST, 


R0 


499 


002072 


0U037 


016156 






MOV 


(P0),TE5TAD 


500 


002076 


006237 


016154 






ASR 


INTEST 




501 


002102 


005065 


00000 4 






CLR 


MFLftGS(R5J 


502 


002106 








50000SI 








(3J 


002106 








50001$! 








(2} 


002106 


000207 








RTS 


PC 




503 








08480 










504 








08485 










505 








08490 











«»*#«»««»»*» 
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^""^ 0«500 ,5BTIL LINE CONTROL & INITIALIZATION 

308 0aS20 |»»»»»«#«»»«« 

^If' 08540 »THiS SECTION CONTROLS THK SELECTION AnD SEQUCnCImG 

5»^ 08560 fOr SINGLE OR MULTIPLE LINES FOR TESTING, 

Sil 08580 |««#»«»«««»»« 

3^2 08600 

5*3 08620 

514 002U0 LINMONI 

519 002U0 032737 0«1000 00U64 BIT «NEWMOD#PCFLAG 

(9J 002116 001427 BEO 500028 

316 08680 , 

3*^ fJ8700 I INITIALIZE THE DEVICE HANDLER I 

318 08720 t SET UP A POINTER AREA WITH THE 

319 08740 $ DEVICE ADDRESSES & VECTORS ETC. 
820 08760 J 

521 002120 032737 000040 001364 fliT »mULTI,PCFLAG 

(9} 002126 001407 BEQ 50003$ 

322 002U0 00473"^ 002332 JSR PC,GVL 

523 002134 004737 002432 JSR PCrMTW 

324 002140 004137 002556 JSR PC»GNL 

925 002144 000410 BR 500048 

(3) 002146 50003SI 

336 08880 f 

*27 08900 J GEf SELECTED LINg NUMBER AND 

328 08920 I PULL THE DATA FROM THE TABLE, 

329 08940 I 

930 002146 013737 001370 016160 MOV LINENO,ONLIN 

331 002154 004737 002432 JSR PC#MTW 

932 002160 013737 0l6l60 016162 MOV ONLIN^NXTLIN 

933 002i66 50004SI 

914 002166 042737 00I000 00U64 BIC »NEWHOD»PCFLAg 

335 002174 000402 BR 500058 

(3) 002176 50002SI 

S36 09080 I 

?J' 09100 I DO LINESEL SECTION FOR EACH DEVICE 

338 09120 I 10 BE TESTED, 

339 09140 J 

940 002176 004737 002204 jSR Pc#LINESeL 

541 002202 5000581 

d42 002202 5000081 

C3) 002202 5000181 

(2} 002202 000207 }^XS PC 

343 09220 

344 09240 

349 09260 |««tf«»«»««««« 

^** 09280 ii^InESEl RoutInE To furnish the iqdpiver with ovc poJnieks 

547 09300 f »»»»«»»«»«*« 

94S 09320 

949 002204 LINESELI 

590 09360 I 

551 09380 I MULTIPLE LINES UNDER TEST ? 

552 09400 I 

933 002204 032737 000e4n 001364 bit »mULTI, PCFLaG 

(9J 002212 001426 8E0 500028 

994 09440 



555 09460 ; SET UP POINTER AREA 
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IIH DATA 



956 










09480 


1 THE NEXT DEVICE TO BE TESTED 


397 










09500 


t 




958 


002214 


013737 


016162 


016160 




MOV 


nxtlin,onlin 


959 










09540 


i 




960 










09560 


; Reset everi^thing if at the end of our device list. 


Ui 










09580 


J 




962 


002222 


023727 


016160 


177777 




CMP 


0NHN##-l 


f9) 


002230 


001012 








BNE 


500038 


963 


002232 


052737 


000400 


001364 




BIS 


#LDONE,PCFLAG 


964 


002240 


004737 


002332 






JSR 


PC»GVL 


969 


002244 


004737 


002432 






JSR 


PCfMTW 


966 


002250 


004737 


002556 






JSR 


PCfGNL 


967 


002254 


000404 








BR 


500048 


C3) 


002256 










5000381 




568 










09720 


1 




569 










09750 


1 Set up pointer area for line = 'onlin'. 


970 










09780 


i 




371 


002236 


004737 


002432 






JSR 


PCrMTW 


S72 


002262 


004737 


002556 






JSR 


PCiGNL 


973 


002266 










50fc?04S| 




974 


002266 


000420 








BR 


b0005S 


(3) 


002270 










5000281 




!i75 


002270 


004737 


002432 






JSR 


PC»MTW 


976 


002274 


032737 


000200 


016126 




BIT 


»SEL,DLFLAG 


C9J 


002302 


001404 








BEQ 


500068 


377 










09920 


J 




578 










09940 


J CHECK to SEE IF ALL DEVICES 


579 










09960 


J HAVE BEEN TESTED YET, SET LDONE FLAG, 


580 










09980 


1 




981 


002304 


052737 


000400 


001364 




BIS 


#LDUNE#PCFLAG 


982 


002312 


000406 








BR 


500078 


C3) 


002314 










50006SI 




983 










10040 


1 




984 










10060 


J KAKE SHURe 


THAT WHEN TESTING A 51^GLE 


585 










10080 


1 DEVICE , IT 


' DOESN'T GET DROPPED 


586 










10100 


j BECAUSE OF 


EXCESSIVE ERRORS, 


987 










10120 


1 




588 


002314 


052737 


000200 


016126 




BIS 


iSELiDLFLAG 


989 


002322 


012700 


020349 






MOV 


»E20,R0 


990 


002326 


104000 






10180 


TYPE 




391 


002330 










5000781 




992 


002330 










5000581 




993 


002330 










500008 1 




(3J 


002330 










5000181 




(2) 


002330 


000207 








RTS 


PC 


994 










10260 






995 










10280 


l***»»»*»»*«» 




996 










10300 


1 GVL THIS 


ROUTINE FINDS A VALID LINE FoR TESTING 


597 










10320 


|»*««*««»««»« 




998 










10340 






399 


002332 








10360 


GVLl 




U) 


002332 


010346 








MOV 


R3#*CSP) 


600 


002334 


012703 


016170 




10380 


MOV 


#LXN00,R3 |GET AODH OF LINE TABLE 


601 


002340 


009713 






10400 


GlAi TST 


(R3J |LIN PRESENT? 


602 


002342 


100412 






10420 


BMl 


GlO lYES BRANCH 


603 


002144 


062703 


000010 




10440 


GlBi ADD 


»10»R3 }P01NT TO OTHER wORD 
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5bU H^-iii 



604 


002350 


020027 


016770 




10460 




CMP 


P0»tTAefi;ND 


lEND or tabll V 

fNU BRANCH 




60S 


002154 


001371 






10480 




BNC 


GlA 




606 
607 


002356 
002J62 


012700 

104000 


020306 




10500 
10520 


GlCl 


MOV 
TYPE 


»E19,R0 


;NUTlrX OPtRA'i'OK «• NO 


LINES 


60S 


002364 


000137 


001372 




10540 




JMP 


HESTBT 






609 
610 
611 


002J70 
002372 
002^74 


105713 
100i64 
062703 


000006 




10560 
10580 
10600 


GlOi 


TSTB 

BPL 

ADO 


(B3J 

GiB 

#6#R3 


|HNE SELECTEM? 

}N0 TR3f ANOTHER LINE 

JPOINT TO OTHER wOHU 




612 


002400 


011J37 


016160 




10620 




MOV 


(R3)»0NL1N 


|GET DATA FROM TABLE 




613 


002404 


000337 


016160 




10640 




SWAB 


ONLIN 


J 




614 


002410 


105037 


016161 




10660 




CLRB 


0NLIN4-1 






6IS 


002414 


00503t 


000174 




10680 




CLB 


SMLINC 






616 


002420 


113737 


016160 


000174 


10700 




MOVB 


ONLINfSMLlNe: 






617 


002426 


012603 










MOV 


i!iP)i,Hs 






618 


002430 


000207 






10740 




RT5 


PC 


fEXIT 




619 










10760 


I ***«*»»«»««» 








630 
621 










10780 


1 MTW 


THIS 


ROUTINE TRANSFERS 


TABLE DATA To THE rtQRK AKEA 












10800 


}«««««««ft<l»««« 








632 










10820 












633 


002433 








10840 


MTMt 










t4j 


002432 


010346 










MOV 


Rlr-CSP} 






624 


002434 


013703 


016160 




10860 




MOV 


ONLIN, R3 


|GET LINE NO, 




i3S 


002440 


006303 






10880 




ASL 


R3 




626 


002442 


006303 






10900 




ASL 


R3 






627 
62i 


002444 

002446 


006303 
062703 


016170 




10920 
10940 




ASL 

ADD 


R3 

»LIN00,K3 


1X8 FOR OFFSET 
}AUn IN BASE ADDK 




629 


002452 


013337 


016136 




10960 


MTNji 


MOV 


(R3}'»-»DLFLAG 


|GET FLAG wORU 




630 
631 


002456 
002462 


012337 
013337 


016130 
016132 




10980 
11000 




MOV 
MOV 


(R3)+#DLAUP 
(R3)+,DLVEC 


|GET ADDRESS 
IGET VECTOK 




632 
633 


002466 
002472 


011337 
01373t 


015134 
016130 


016136 


11020 
11040 




MOV 
MOV 


CR3}fDL0TH 
ULADHfDVCRXB 


IGET "OTHER WORD" 




634 


002500 


063737 


000002 


016136 


11060 




ADD 


#2rDVCRXB 






635 


002506 


013737 


016136 


016140 


11080 




MOV 


DVCRXB,UVCTXS 






636 


002514 


063737 


000002 


016140 


11 100 




ADO 


#2#0VCTXS 






637 


002522 


013737 


016140 


016142 


11120 




MOV 


DVCTXS,DVCTXB 






638 


002530 


013737 


016132 


016144 


11140 




MOV 


DLVECTXVEC 






639 


002536 


063737 


000004 


016144 


11160 




ADD 


»4»TXVEC 






640 


002544 


062737 


000002 


016142 


11180 




ADD 


«2f DVCTXB 






641 


003553 


012603 










MOV 


(SPMfRj 






642 


003554 


000207 






11220 




BTS 


PC 






643 










11340 


1 «#«»«#»«»««« 








644 

649 










11360 


1 Gnl 


THIS ROUTINK FinDS THE 


NEXT VALID LINE To TEST 












11380 


,#»#»»«»»««»« 








646 










11300 












647 


003556 








11320 


GNLI 










C4J 


003556 


010346 










MOV 


RJ,»(SP} 






648 


003560 


013703 


016160 




11340 




MOV 


ONLIN, Ri 


JGET CURRENT LINE 




649 


002564 


005203 






11360 




INC 


R3 


ICURRKNT *l 




690 


002566 


006301 






11380 




ASL 


RJ 




6Sl 


002570 


006303 






11400 




ASL 


H3 






652 


003572 


006303 






11420 




ASL 


R3 


|X8 FOB OFFSET 




653 


003574 


062703 


016170 




11440 




ADD 


#LIN00,R3 


lADD IN BASE AODH OF TABLE 




634 


003600 


005713 






11460 


GNU 


1ST 


CH3) 


fLINE PRESENT? 




655 


003602 


100403 






11480 




BMl 


GNJ 


|¥ES <" BRANCH 




656 
657 


003604 
003610 


062703 
000773 


000010 




11500 
11520 


GN2I 


ADD 
BP 


»10»R3 
GNi 


IPOINT TO NEXT LINE hUHi 
1 CHECK NEXT 





) 



) 
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sEy k'Mja 



658 

659 

660 

661 

662 

663 

664 

665 

666 

C4J 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 

678 

679 

680 

(7J 

17) 

681 

682 

683 

684 

685 

686 

687 

(9) 

688 

689 

(3) 

690 

691 

692 

693 

694 

C9) 

695 

696 

697 

698 

699 

(3} 

700 

701 

702 

703 

(9) 

704 

705 



002612 
002614 
003616 
003632 
002634 
003630 
002634 
002640 
002644 
002644 
002646 
002650 
002656 



105713 
100373 
021327 
001412 
062703 
011337 
000337 
105037 

012603 
000207 
012737 
000 772 



177777 

000006 
016162 
016162 
016163 



177777 016162 



002660 
002664 
002670 



006J37 
006337 
006337 



004776 
0M4776 
004776 



002674 062737 016170 004776 



002702 
002710 
002712 
002M6 
002720 



003720 
002726 
002730 
002736 
002744 
002752 
002760 
002762 



032777 

001003 
004737 

000430 



032737 
001415 
052777 
042777 
062737 
117737 
000407 



100000 W02066 



000004 005002 



000200 
000037 
000007 
002020 



002040 
002032 
004776 
001370 



002762 032737 000010 005002 

002770 001403 

002^72 042777 000200 001776 

003000 



11540 
11560 
11580 
11600 
11620 
11640 
11660 
11680 
11700 

11720 
11740 
11760 
11780 
11800 
1182^ 
11840 
11860 
11880 

U902 
11904 
11906 



11930 

11960 
11980 
12000 
12020 



12100 

12120 
12140 
12160 



12300 
12320 
12340 



TSTB 


(R3) 


ILINE SELECTED? 


BPL 


GN2 


|N0 TRY ANOTHER 


CMP 


lR3Jr«-l 


lEND OF Table? 


BEQ 


GN5 


JYFS « BRANCH 


ADD 


»6rH3 


|GLT "OTHER ftORU 


MOV 


IR3J»NXTL1N 




5MAB 


NXTLIN 


1 B NEXT AVAILABI 


CLRB 


NXTLIN+l 




MOV 


C5P)+,B3 




RTS 


PC 


lEXIT 


MOV 


«-l, NXTLIN 


ISET NXTLIN in «; 



1 • ivO SEbtCT 



I 



fUPDATE ROUTINE TO UPDATE INTERFACE TABLE FRoM C()HMA^DS 
}««««««««»««« 

UPDATEI 

I SHIFT THE CONVERTED LINE NO, FOR AN 

f OFFSET TO THE LINE TABLE, 

i 

ASL OAIA 

ASL DATA 

ASL DATA 
I ADD IN THE BASE ADDRESS OF THE TABLE, 

ADD #HN00,DATA 

; IF THE LINE SELECTED DOESN'T EXIST - 

I SEND AN ERfiOR MESSAGE, 

I 

BIT #ULP#HDATA 

BNE 500028 

USB PCSELERR 

BR 500038 
5000291 
» 

> ADDING A LINE SgTS IT'S "SeLecTEu" FLaG 

t AND CLEARS OUT THE ERHOR COUNT FOB THAT LINE 
J 

BIT #ADDC#IeMPF 

BEQ 500048 

BIS ffSELfPDATA 

BIC «AB0Hl7#SUATA 

ADD «7#DATA 

MOVB iOATA#LlNENO 

BB 500058 
5000481 
I 

f DBOPPING A LINE JUST BESETS IT'S "SELECTED" FLAG 
J 

BIT #DR0PC#TEMPf 

BEQ 500068 

BIC S5EL,9DA1A 
S0006II 
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706 


003M00 








5000S$I 




707 


003000 








&0003SI 




708 


003000 


005»37 


004776 




CLR 


DATA 


709 


003004 








50000SI 




C3) 


003004 








&000lSi 




C2} 


003004 


000207 






BTS 


PC 


110 








t24t^0 






7U 








12500 
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713 
714 
115 
716 
111 
118 
719 
720 
121 
722 
123 
724 
125 
726 
127 
728 
729 
730 
131 
132 
133 
134 
135 
736 
137 
138 
139 
140 
141 
742 
743 
C3) 
(2} 
144 
145 
146 
147 
148 
749 
750 
151 
152 
153 
754 
155 
136 
757 
758 
759 
160 

m 

CS) 
U) 
(9J 
U) 
162 



003014 
003H22 
003026 
003tt30 
003036 
003040 
003046 
003050 
003056 
003062 



003064 
003064 
003070 
003074 

0(43100 
003104 
003112 
003116 
003120 
003124 
003126 
003126 
003126 



012737 
012731 
005777 



012137 
000404 
012737 
022626 
012737 
005037 
000201 



013746 
012146 
012146 
004137 
142137 
012700 
104000 
012700 
104000 



003040 
000340 
013076 



0000M4 
U00006 



177570 016124 
000176 016124 



000006 
000006 



001364 
0U0006 
020230 
007566 
000006 
020215 

017730 



003130 00 

003132 017737 012766 0l6ie 



003140 032737 
003146 001404 



000100 016100 



003150 032737 000040 016100 

003156 001016 

003160 

003160 000000 



12540 
12560 
12580 
12600 
12620 
12640 
12660 
12680 
12700 
12720 
12740 
12760 
12780 
12800 
12820 
12840 
12860 
12880 
12900 
12920 



13080 
13120 



13160 
13180 
13200 
13220 
13240 
13260 
13280 

13320 
13340 
13360 
13380 

13420 
13440 
13460 
13480 



13520 



jSBTTL Si«iITCH REGISTnjB HOUTINES 

iswftst tssts For hardware switch register 

#48#mACHEH 

#PRI7,MACHER+2 

@SMR 



SWBTSTi MOV 
MOV 
TST 
NOP 
MqV 
BR 

4SI MOV 
ISP2 

6$l MOV 
CLR 
BTS 



|SU nXm XHAP Tu 4S 
fACCESS SWITCH REG, 



»l77570»Si«IR 
6$ 

SSS^iRf SWR 

#b»MACHEP 

MACHER+2 

PC 



IRETAIN MAHDWAHE PQlMtH 

I 

ISU FOR 50FTV»ARE S^Il'CM HtG, 

ICLEAN THE STACR 

fPESEr TRAP CATCHER 

J EX IT 



I CTlGX THIS ROUTINE PRINTS THE PRoGRAK' CONIHOL FlAGS qn THE CoimSQLE, 
CTLGX I 



MOV 
MOV 
MOV 
vJSH 
BICB 
MOV 
E 
MOV 



TXPE 
5000081 
5000181 



BTS 



PCFLAG,«t5P) 

»6»-lSP) 

#SI«+11,,-(SP) 

PC#02ASC 

«6»SW4-ll 

#Sl«iR0 

SLlfR0 



PC 



jGETSWS THIS ROUTINE READS THE SWITCH REGiSXER AnU 
I CONVERTS THE DATA TO THE APPRQPHIATE COivrnOL 

> FLAGS OR POINTERS, 

GETSiNSl 

f 

I STOP HERE FOR OPERATOR TO ENTkR CONTROL SWITCHES 



I 



HALT 



MOV 



l»SMR,TEMP 



t IF SWITCHES INDICATE A SINGLE LINE OR h SINGLE TEST 
I TO BE DONE STOP SU OPERATOR CAN ENTER LINE/TEST DAiA 



50l02ii 



BIT 


»SEU»TEMP 


BEG 


50002$ 


BIT 


#MULTI,TEMP 


BNE 


50003S 



♦ • 
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763 


003162 


017737 


0!273ft 


016102 






HOV 


|l5WR|Tfc:MP + 2 


764 


003170 


005037 


001366 








CLR 


TE5TN0 


76S 


003174 


113737 


016102 


00136b 






HOt/B 


Ti;MP+2i'rE;sTNo 


766 


003202 


005037 


00137*1 








CLR 


LINENO 


767 


003206 


U3737 


01610J 


001370 






MOVB 


IEMP+3#LINEN0 


768 


003214 










50003$! 






769 


003214 


032737 


0t)0l00 


016100 






BIT 


»SCQ#TCMP 


(9) 


003222 


001406 










BEQ 


500048 


770 


003224 


052737 


000J00 


001364 






BIS 


»SEQ,PCFLAG 


771 


003232 


00S037 


001366 








CLR 


TESThO 


772 


003236 


0H0403 










BR 


50005S 


C3) 


003240 










5000481 






773 


003240 


042737 


000100 


001364 






BIC 


#8EU,PCrLAG 


774 


003246 










5000531 






^73 










13780 








776 


003246 


032737 


000040 


016100 






BIT 


«MULI1»TEMP 


(9) 


0032S4 


001406 










BEQ 


500068 


777 


003256 


052737 


000040 


001364 






BIS 


»MULTI#PCrLAG 


778 


003264 


005037 


001370 








CLR 


LINENO 


779 


003270 


000401 










BR 


500078 


C3) 


003272 










5000681 






780 


003272 


042737 


000040 


001364 






8IC 


#MULTI#PCFLAG 


m 


003300 










5000781 






782 










13940 








783 


003300 


032737 


0H3200 


001364 






BIS 


»attm»newmodi 


784 










13980 








719 


003306 


042737 


174037 


001364 






BIC 


#174037, PCFLAG 


786 


003314 


042737 


003777 


016100 






BIC 


»3777#TEMP 


787 


003322 


053737 


016100 


001364 






BIS 


TEMP,PCrLAG 


788 


003330 










5000081 






C3J 


003330 










5000181 






(2) 


003330 


000207 










HTS 


PC 


789 










14100 
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791 
792 
793 
794 
795 
796 
797 
798 
799 
800 
801 
802 
803 
804 
805 
806 
807 
808 
809 
810 
811 
812 
813 
C9) 
814 
815 
816 
817 
BIB 
819 
C5J 
820 
13) 
821 
8 22 
C9J 
(6) 
(9J 
823 
824 
825 
C3) 
(2) 



003332 
003340 
003346 



003350 
003350 
003354 
003360 
003362 
003370 
003370 
003376 
003400 
003406 
003412 
003416 
003420 
003420 
003424 
003426 
003430 
003430 
003436 
003444 
003446 
003454 
003456 
003464 
003464 
003464 
003464 



012737 003466 
012737 000101 
000207 



000060 
J77560 



005077 012610 

012700 020370 

104000 

012737 000001 177S60 

032737 000200 177560 

001410 

113777 177562 012S56 

004737 005044 

012700 017730 

104000 

005777 012540 

001001 

000760 



142/77 
027727 
001007 
023727 
001403 
052737 000020 



000200 012526 
012522 000116 



016124 000176 
001364 



14840 
14860 
14880 
14900 
14920 
14940 
14960 
14980 
15000 
15020 
15040 
15060 
15080 
15100 
15120 
16140 



,SBTTL CONSOLE TERMINAL ROUTINES 

ICONSUN—" Routine to initialize console vector area 



CONSONI MOV 
MOV 
RTS 

> GETSPC 

f 

I 

t 

GETSRCI 

CLR 

HOV 
TXPE 

MOV 
5000281 

BIT 

BEQ 

MOVB 

JSR 

MOV 



TST 
BNE 
bR 

BICB 

CMP 

BNE 

CMP 

BEQ 

BIS 



#REAOKBf i#TKV 

#101#i!(TKS 

PC 



I INTERRUPT TO "REfiUKB" 



THIS HOI'TINE ASrS THE OPERATUK IF HE/SHE 
WANTS TO USE CONSOLE CONIROL, THE^ SETS 
A CONTROL FLAG ACCOROiNGLY, 



»PTR 

»CTLM,Rfc5 



«1,»»TKS 

#REAUY#PITKS 
500048 
ftTKB»»PTR 
PC, ECHO 
«L1,R0 



#PTR 

500^38 
50002S 

»200#fPTR 

fPTH,«'N 

500058 

SWR,8SStMR 

500058 

SSWCTLfPCFLAG 



5000581 
5000081 
5000181 
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ll. 



H27 










15540 


1 «»»»«##««»«« 






»38 










15560 


1 BEAPKB THIS MODULE IS AN INlgRBUPT I 


"lANULEH 


i2y 










15580 


I FOB 


THE CONSOLE TERMINAL, 




830 










15600 


j»»»«*«»«»#»# 






83t 










15620 








832 


003466 










BEADKBt 






833 


003466 


010046 








MOV 


H0,«>(5PJ 




834 










15650 


i 






83S 










15655 


1 GET CHAP FROM KEYBOARD BUFFER RKG, 




83b 










15660 


1 CLEAR PARITY 


BIT IF SET, 




837 










15665 


t 






838 


003470 


013737 


177562 


003776 




MOV 


9»TKB»HDSAV 




839 


003476 


142137 


000200 


003776 




BICB 


#200»RDSAV 




840 










15680 


1 






841 










15685 


1 CHECK FOP DEVICE ERROH 




842 










19690 


1 






843 


003504 


032737 


ll(?0000 


003776 




BIT 


#merr»bdsav 




(9J 


003912 


001405 








BEQ 


500028 




444 


003514 


004731 


005062 






JSH 


pc»cmderr 




84S 


003520 


005037 


177560 






CLR 


8»TKS 




846 


003524 


000516 








BR 


50003S 




(3) 


003526 










5000291 






847 










15715 


t 






848 










15720 


i IF CMU CHAR k 


1/aS a CTL-G 00 THE CTLGX 


ROUTINE 


849 










15725 


1 PRINT OUT PCFLAGS ON CONSOLE, 




850 










15730 


t 






851 


003526 


123727 


003776 


000007 




cmPb 


RdSav,»ctlg 




19J 


003534 


001006 








BNE 


50004$ 




852 


003536 


004737 


003064 






JSR 


PC#CTLGX 




853 


003542 


012700 


017730 






MOV 


#L1»R0 




854 


003546 


104000 






15750 


TYPE 






855 


003550 


000504 








BR 


50005S 




13} 


003552 










5000481 






856 










15756 


1 






857 










15757 


f IF IN I/O MODE PUT DATA IN I/O BUFFER 




858 










1S758 


1 






859 


003952 


032737 


000002 


001J64 




BIT 


#FLAG2#PCFLAG 




C9) 


003560 


001410 








BEQ 


500068 




860 


003562 


113711 


003776 






MOVe 


RPSAV#(H1} 




861 


003566 


052737 


004000 


001364 




BIS 


»0ATAIN,PCFLAG 




862 


003974 


005037 


007564 






CLR 


delayt 




863 


003600 


000470 








BR 


50007$ 




C3J 


003602 










50006SI 






864 










15776 


I 






865 










15777 


IIF IN COMMAND 


MODE PUT DATA IN INBUf 




866 










15778 


|AHD CALL INTERPRITER 




867 










15779 


1 






868 


003602 


032737 


000001 


001364 




BIT 


»FLAG1#PCFLAG 




193 


003610 


001406 








BEQ 


50010$ 




H9 


003612 


113777 


003776 


012344 




MOVB 


RDSAVfPPTK 




870 


003620 


004737 


004000 






JSR 


PCfCSI 




871 


003624 


000456 








BR 


50011S 




C3J 


003626 










5001081 






(172 










15796 


1 






873 










15797 


1 CLEAR AND GO 


TO READY STATE. 




874 










15798 


> 
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875 


003626 


123727 


003776 


000003 






CMPB 


RDSAV»#CTLC 


C9) 


003634 


001003 










BNE 


500128 


876 


003636 


004737 


001J72 








JSR 


PCRESTRT 


877 


003642 


000447 










BR 


500138 


(3) 


003644 










5001251 






878 










158U 


t 






879 










15812 


i CHECK 


FOR PRINT REPORTS COMMAND 


880 










15813 


> 






88} 


003644 


123727 


003776 


000020 






CMPB 


RDSAV,»CTLP 


C9J 


003652 


001004 










BNE 


500148 


882 


003654 


042737 


02000(^ 


001364 






BIC 


HINHRPIiPCFLAG 


883 


003662 


000437 










BR 


500158 


(33 


003664 










5001481 






884 










15826 


1 






885 










15827 


J CHECK 


FOR NO 


REPORTS COMMAND 


886 










15828 


> 






887 


003664 


123727 


003776 


000016 






CMPB 


RDSAV|»CTLN 


C93 


003672 


001004 










BNE 


500168 


888 


003674 


t:527 37 


020000 


001364 






BIS 


IINHRPT^PCI-LAG 


889 


003702 


000427 










BR 


500178 


(33 


003704 










50016SI 






890 










19841 


J 






891 










15842 


I CHECK 


FOR HALT ON ERROR COMMAND 


892 










15843 


; 






893 


003/04 


123727 


003776 


000010 






CMPh 


RDSAV,#CTLH 


(93 


003712 


001004 










hNE 


500208 


894 


003714 


052737 


100000 


001364 






BIS 


#HALTOE,PCFLAG 


895 


003722 


iiV04n 










BR 


500218 


(33 


003724 










50020SI 






896 










15856 


1 






897 










15857 


1 CHECK 


FOR LOOP ON ERROR COMMAND 


898 










15858 


1 






899 


003724 


123727 


003776 


000014 






CMPB 


rdsav,«ctll 


(93 


003732 


001004 










BNE 


500228 


900 


003734 


052737 


040000 


001364 






BIS 


»LOOPOE,PCFLAG 


901 


003742 


000407 










BR 


500238 


C3J 


003744 










5002211 






902 










15871 


1 






903 










15872 


1 CHECK 


FOR CLEAR CUMMaNO 


904 










15873 


I 






905 


003744 


123727 


003776 


000013 






CMPb 


rdSav,#ctlk 


(93 


003752 


001003 










BNE 


500248 


906 


003754 


042737 


140000 


001364 






BIC 


#HALTOE| SLOOPOE/PCFLAG 


907 


003762 










5002481 






908 


003762 










5002381 






909 


003762 










5002181 






910 


003762 










50017SI 






911 


003762 










50015SI 






912 


003762 










5001381 






913 


003762 










5001111 






914 


003762 










5000781 






915 


003/62 










5000581 






916 


003762 










5000381 






917 










15935 


» 






918 










15940 


} TURN ( 


:ONSOLE 


BACK ON 1. EXIT, 


919 










15945 


1 







f ♦ 



CZLAIA0 Lftjft TERM JST MACyll 
CZLArAsPU 03»JAN»78 11120 



30AIJ0323 0J-JAN»77 00IH1 PAGE 1»22 
CONSOLE TERMINAL ROUTINKS 



920 


003762 


012737 




003770 


012600 




003772 


000002 




003774 






003774 






003774 


000207 










003776 


000000 



000101 177560 







MOV 


#i01»9#TKS 






MOV 


(SPjtfRfe) 


15960 


5000011 
5000181 


RTl 








RTS 


PC 


16900 








16600 


rdSavi 


,WOBU 
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5EU Hvi4(£ 



927 

$28 

929 

930 

$31 

932 

933 

934 

935 

936 

(9) 

937 

938 

939 

940 

941 

942 

943 

944 

945 

946 

947 

948 

949 

950 

951 

952 

13) 

953 

954 

955 

956 

957 

(9) 

958 

959 

960 

961 

(33 

962 

963 

964 

965 

966 

(9) 

967 

968 

969 

970 

C9) 

971 

972 

973 

$74 

975 

(33 



004k}00 
004006 



004016 
0044922 
004026 
004030 



004036 
004044 
004052 



004066 
004070 



004070 
004076 
004100 
004106 
004112 
004114 
004116 



004U6 
004124 
004126 
004132 
004134 
004140 
004146 
004150 
004154 
004160 
004i66 
004166 
004170 



123727 

001030 
112777 
004737 
012700 
104000 
042737 



003776 000033 



000044 
005044 
017051 



012146 



000001 005002 



013737 005002 001364 

013737 005004 001366 

012737 016114 016164 

042737 01760J 005002 

000457 



123737 

001007 
012737 
012700 
104000 
000444 



123727 
001021 
012700 
104000 
004737 
123727 
001007 
005037 
003037 
012737 

000417 



003776 016166 



016114 
017730 



003776 000015 

017730 

004230 

016114 000121 

001366 
005004 

II 016152 



16640 
16660 
16680 
16700 

16740 
16760 
16780 
16800 



16900 

17100 
17120 
17140 
17160 



1/235 
17260 



17300 
17 320 
17 340 
17360 



17480 
17500 
17520 
17540 



t CSI COMMAND STRING INTERPRETER 
CSXl 

I 

I IF CMD CHAR IS AN ESCAPE ECHO A '8' 
I AND SET MODE BACK 10 0, 



CHPB 

ttNE 

M0V8 

JSR 

MOV 

TYPE 

8IC 



RDSAV»#ESC 

500028 

#'$iPPTR 

PCiECHO 

»L3fR0 

»FLAG1#TEMPF 



RESET THE BUrFl-:P 



I MOVE NEW CONTROL FLAGS TO THE PCFLAG WUKu, 

I RESET THE BUFFER POINTER, 

I 

MOV TE«PF#PcrLAG 

MOV TEMPI, TESTNO 

MOV #INBUF,PTK 

I CLEAR ATIENTlOw FLAGS FROM TEMPF 

BIC »l7603#TEMpr 

BR 500038 
50002SI 
> 

I IF CMD CHAR Was a delete 

t POINTER AND ECHO A CR/LF, 
» 

CHPB ROSAVfDEL 

BNE 500048 

MOV «INBUF,PTR 

MOV »L1,P0 
TYPE 

BR 500058 
5000481 
J 

1 IF CMD CHAR WAS A ReTURn echO A CR/LF 
I AND CALL THE DECODER, 
I 

CMPb RdSaV,»cR 

BNE 500068 

MOV #L1,R0 
TYPE 

JSR PC»DECOOE 

CMPB INBUF,»»Q 

BNE 500078 

CLR TE8TN0 

CLR TEMPT 

MOV S1#NEXT 



5000781 
5000681 



BR 



500108 
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976 








977 








978 








979 








980 


004170 


123727 


003776 


19) 


004176 


fjW|007 




Ul 


004200 


tU2700 


017103 


982 


004204 


104000 




983 


004206 


012700 


020123 


984 


004212 


104000 




985 


004214 


000404 




(J) 


004216 






986 








987 








988 








989 


004216 


004737 


005044 


990 


004222 


005237 


016164 


991 


004226 






992 


004226 






993 


004226 ' 






994 


004226 






999 


004226 






(3) 


004226 






(2) 


004226 


000207 




996 








997 









17B00 
17820 
17840 
17860 



17920 
17960 



18000 
18020 
18040 



I 

» ir cvi) chaR Was a '?' pltype thi: command 

I SUMMAKY & GO TO READY CONDITION, 
I 

PDSAV,*'? 

50011S 

»COMSUM,R0 



cmpb 

BNE 

MOV 

TYPE 

MOV 

TYPE 

BR 



»POY,R0 
50012$ 



5001131 

I 

f ECHO THE INPUT CHAFftCTEH, 

r 



J5R 
INC 



PCrKCHO 
PTB 



5001281 
5001081 
5000581 
5000381 
5000081 
5000181 



18220 
18240 
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1000 










18300 


1001 










18320 


1002 










18340 


1003 










18360 


1004 


004230 










1005 










18400 


1006 


004230 


010046 








1007 


004232 


010146 








1008 


004234 


010246 








1009 


004236 


012702 


001364 






1010 


004242 


012700 


004656 






1011 


004246 


012701 


016114 






iV)ii 


004252 










1013 










18560 


1014 










18580 


1015 










18600 


1016 


004252 


121110 








C9) 


004254 


001145 








1017 










18640 


1018 










18660 


1019 










18680 


1020 


004256 


116037 


000001 


004774 




1021 


004264 


056037 


000002 


005002 




1022 


004272 


046037 


000004 


005002 




1033 


004300 


005037 


004776 






1024 


004104 


005037 


005000 






1025 










18800 


1026 










18820 


1027 










18840 


I02d 


004310 


032737 


000340 


004774 




(9J 


004316 


001520 








1029 


004320 


126127 


000001 


000015 




t9J 


004326 


001006 








1030 










18900 


1031 










18920 


1032 










18940 


1033 


004330 


004737 


005062 






1034 










18980 


1035 










19000 


1036 










19020 


1037 


004334 


012737 


016114 


016164 




1038 


004342 


r00505 








13) 


004344 










1039 










19080 


1040 










19100 


1041 










19120 


1042 


004344 


012746 


004776 






1043 


004350 


116137 


000001 


004776 




1044 


004356 


126127 


000002 


000015 




C9) 


004364 


00100J 








1045 


004366 


012746 


000001 






1046 


004172 


000417 








(3) 


004374 










J047 


004J74 


116137 


000002 


004777 




104S 


004402 


136127 


00000J 


000015 





IDECOOE THIS SECTION DECODES THt COMhAND STRING FRg?-. THE 
} CONSOLE, AND SETS THE APPKOPKIATE CONTROL FALGS, 

DECODEI 



MOV 
MOV 
MOV 
MOV 
MOV 
hOV 



R0#-(SP) 

R1#-(SP) 

R2#-<SP) 

«CTLBLK,H2 

»UECTeL,R0 

#lNBUr#Rl 



5000281 

» 

t COMPARE CHAR IN TO flHST BYTE Of TaBLK 

I 

CMPB tRl)#(R0) 

BNE 500048 
I 

I IF SAME GET FLAGS FROM THE TABLt TO Tt'^Pt 
I 

movb UR0)»decsav 

HIS 2tR0)#TEMPF 

BIC 4tP0),TEMPF 

CLP DATA 

CLR DATA2 
f 

J SEE IF THIS COMMAND REQUIRES ADDITIONAL UAlA 
I 

BIT «NReO»DEC5AV 

BFQ 50005S 

CMPB 1(R1)»«CR 

BNE 500068 
I 

I DATA PEOUIBED BUT NOT PRESENT. , .ERPOP 
I 

JSP pc#cmderr 
I 

1 IF A OR p COMMAND USE DaTa FOR LINE NO, 
I 

MOV #inbuf#ptr 

BR 500078 
5000681 
f 
I CONVERT THE CHARS TO OCTAL,,, DATA 

I 



MOV 


»DATA#»tSP) 


MOVB 


HRUfOATA 


CMPB 


2fRl)#«CP 


BNE 


50010S 


MOV 


»1#-(SP) 


BR 


500U8 


5001081 




MOVB 


2CB1),DATA*1 


CMPB 


3tRl),#CP 
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C9J 


004410 


001003 








BNE 


50012S 


IB49 


004412 


012746 


000002 






MOV 


»2f»(SPj 


I0S0 


004416 


000403 








BR 


50013$ 


C3) 


004420 










30012SI 




twSl 


004420 


116137 


000001 


005000 




MOVf» 


3tRU»DATA2 


1052 


004426 


012746 


000003 






MOV 


«3,-(SP) 


l»3j 


004432 










5001391 




10S4 


004432 










500llSi 




105S 


004432 


f<l2746 


004776 






MOV 


«DATA,-CSP) 


IW36 


004436 


004737 


007676 






JSK 


PC#A2BIN 


lk>57 










19440 


1 




109S 










19460 


1 ir K COMMAND 


USE DATA AS A TEST NO, 


J0S9 










19480 


1 




1060 


004442 


121027 


000122 






cwpb 


(R0),»'K 


(9J 


004446 


001020 








BNE 


30014S 


1061 










19520 


1 




1062 










19540 


t CHECK THE LIMITS FOR VALID TEST NO, 


1063 










19560 


1 




1064 










19580 


l««*«***«*» »3 


BELOW IS HIGHEST TeST NO IHIS DlAGNi 


1063 


004430 


003737 


004776 






TST 


DATA 


CD 


004454 


002404 








BLT 


500158 


Uj 


004436 


023727 


004776 


000005 




CMP 


PATA,»5 


(9J 


004464 


003403 








bLE 


500168 


(6) 


004466 










5001581 




1066 


004466 


004737 


003100 






JSP 


PCfSELERR 


1067 










19640 


1 




1066 










19660 


> OUT or RANGE 


ERROR, 


1069 










196H0 


1 




1070 


004472 


000403 








BP 


500178 


O) 


004474 










50016$! 




1071 


004474 


013737 


004776 


00S004 




MOV 


UATA,TEmPT 


1072 


004302 










50017SI 




1073 


004302 


032737 


100000 


005000 




BIS 


tiMERR«pATA2 


1074 


004310 










5001481 




1073 










19800 


1 




1076 










19820 


1 IF w COMMAND 


USE DAXA as WIDTH 


1077 










19840 


> 




1078 


004310 


121027 


000127 






cmpb 


(R0),«'W 


C9J 


004314 


001005 








BNE 


500208 


1079 










19880 


I 




1080 










19900 


1 GO CHECK FOR 


VALID LIMITS ON wIdTH ENTRV, 


1081 










19920 


1 




10S2 


004316 


004737 


005006 






JSR 


PC#CHRl(» 


1083 


004322 


052737 


100000 


005000 




BIS 


tMERR#DATA2 


1084 


004330 










50020SI 




1083 










20000 


1 




1086 










20020 


> Ir ADDING OR 


DROPING A LINE CALL UPDATE ROUTINE 


1087 










20040 


t 




1088 


004330 


121027 


000101 






CMPB 


(P0J»8'A 


(S) 


004334 


001403 








BEQ 


500218 


(6) 


004516 


121027 


000104 






CMPB 


tR0)#»'D 


C9> 


004542 


001003 








BNE 


500228 


(6) 


004344 










50021SI 




1089 










20080 


I 




S090 










20100 


» Take line no. 


AND UPDATE INTtKFACE TABLE 


1091 










20120 


1 





:) 



) 
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1092 
1093 
1094 
1093 
1096 

(3) 
1097 
1098 
1099 

(3) 
1100 
1101 
1102 
1103 
1104 
1105 

C9J 
1106 
1107 
1108 
1109 
1110 

nil 

1112 
1113 
1114 
1115 

C5) 
1116 

(3) 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1123 

C3J 

(2) 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 



004737 
032737 



004544 

004550 
004356 
004356 
004556 
004360 
004360 
004566 
004366 
004570 
004370 062700 



002660 

100000 003000 



052737 100000 005000 



000415 



004374 
004600 
004602 
004606 
004614 
004622 
004622 



004622 

004630 
004532 
004634 
004634 



004640 
004646 
004650 
004662 
004054 
004664 
004654 



004656 
004660 
004664 
004666 
004672 
004674 
004700 
004^02 
004706 
004710 
004714 
004716 
004t22 



020M27 
001010 
004^37 
012737 
052737 



032737 

001001 
000607 



005062 

0161J4 016164 

100000 005000 



100000 005000 



003037 005000 



012737 
012602 
012601 
012600 



123 

001200 

115 
001240 

121 
000300 

122 
000200 

104 
003010 

101 
002004 

124 



01bH4 016164 



000 
000040 

000 
000000 

000 
000000 

200 
000100 

100 
000004 

100 
000010 

000 



20320 
20340 
20360 
203B0 



20520 
20540 
20560 
20580 



20660 
20680 

20700 



20820 
20840 
20860 
20880 
20^00 
20920 
20940 
20960 
20980 
21^00 
21020 
21040 
21060 
31080 
31100 



JSR 
BIS 



5002281 
50007SI 



BiS 



PC»UPDATE 
«MERR,DATA2 



50023S 
»MERRfDATA2 
500248 
#6#R0 



I IF THE CHAR IN 0"ESN'T COMPARE TO ANY 
J TABLE ENTRY THE COMMAND IS INVALID 



1 



CMP 

BNE 
JSR 
MOV 
BIS 



50025SI 
5002481 



H0#»DTEND 
50025S 
PC*CMDERR 
» INBUF#PTR 
«WERR,DATA2 



J KEEP LOOKING AT CHAR UNTIL IT''S 
J DECODED, OR END OF TABLE (ERHOHJ, 



5000381 



> 



BIT 

BNE 
BR 

CLP 



«MERB»DATA2 

500038 

500028 

DATA2 



I Reset the input BUfFEW pointkh 

MOV »iNBUF»PTH 

MOV CSPJ+,R2 

MOV (SP)+,Rl 

MOV (SP)+,R0 
5000081 
5000I8I 



DECTBlI .byte •S#0 



.WORD 


ATTNJNEhMODfMULlI 


,Btlt 


'M,0 


,WORD 


AT|N|MULTI|NEWMOD#0 


,BYTE 


'U#0 


,MORD 


ATTN|SEO,0 


.BYTE 


•P#200 


,WORD 


ATTN,SEQ 


.BYTE 


'0,100 


.WORD 


DHOPCiNEwTST,AOUC 


9BYTE 


'A, 100 


.WORD 


AODC|NEwTST,UROPC 


.BYTE 


'T,0 



jDECoOfc TABlE 

I FIRST • CHAR TO HE DECOOEU 

I SECOND • CONTROL BITS 

JTMIHO - SET MASK 

IFOURTH » CLEAR MASK 

{CONTROL BlTSl 
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1141 


004724 


010000 


000000 




21120 




.WORD 


PH|NTT,0 




U4a 


004730 


114 


000 




21140 




.BXTE 


'L#0 




U43 


004732 


040000 


000000 




21160 




.WORD 


Lt)OPOE,0 




1144 


004736 


110 


000 




21180 




,B)fTE 


'H,0 15 


a GET widlH 


1149 


004740 


100000 


000000 




21200 




,*nORD 


HALTOE,0 




1146 


004744 


116 


000 




21220 




,BXTE 


'N,0 jfe 


3 GET LlMh N 


U47 


004746 


020000 


000000 




21240 




,WORD 


1NHRPT,B 




1148 


004752 


120 


000 




21260 




,BXTE 


•P#0 J7 


« GEN TEST «U 


1149 


004754 


000000 


020000 




21280 




,W0RU 


0#INHHPT 




1150 


004760 


103 


000 




21300 




,B¥TE 


'C,0 




USl 


004762 


000000 


140000 




21J20 




.WORD 


0»HALTOEiLOOPO£ 




tl52 


004766 
004771 


127 

000 


040 
000 


000 
000 


21340 




,8XTE 


'Mf 40f 0i0»0»0 




1153 


004774 








21360 


DTENDI 








1154 


004774 


000000 






21380 


DECSA^I 


.WORD 







115S 


004776 


000000 






21400 


DATAl 


.WORD 







US6 


005000 


000000 






21420 


DATA2I 


.WORD 







1157 


005002 


000000 






21440 


TEMpri 


.WORD 


ITEMPORARY 


PCrUAG -vOND 


1158 


005004 


000000 






21460 


TEMPT 1 


.WORD 


JTEMPORAHY 


TEST NO, 


1159 










21480 










1160 










21500 










1161 










21520 










1162 










21540 


!##«««««»«««« 






1161 










21560 


f ChKW 


THIS 


ROUTINE VALIDATES A "w" CO^mANU 


1164 










21580 


1 »»»»**»»»»*» 






1169 










21600 










1166 


005006 










CHKwt 








1167 










21621 


1 








1168 










21622 


1 Range 


OF 26 ' 


IHRU 132 CHARACTERS IS VALID 




1169 










21623 


; 








1170 


005006 


023727 


004776 


000032 






CMP 


DaTa,«32 




(8} 


005014 


002404 










BLT 


500028 




(6) 


005016 


023727 


004776 


000204 






CMP 


DATA, #132. 




19) 


005024 


00340J 










BLE 


50003$ 




(6) 


005026 










5000281 








1171 


005026 


004737 


005100 








JSR 


PCrSELERR 




1172 


005032 


000403 










BR 


50004$ 




13) 


005034 










50003SI 








li73 


005034 


013737 


004776 


016146 






MOV 


DATA, WIDTH 




1174 


005042 










5000481 








1175 


005042 










50000SI 








13) 


005042 










5000191 








t2) 


005042 


000207 










RTS 


PC 




U76 










21760 










1177 










21780 
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1179 
1180 
1181 
US3 
1183 
tl84 
1185 
1186 
1187 



005044 
005050 
005052 
1^05060 



105737 
100375 
117737 
000207 



0U106 177566 



21820 
21840 
21860 
21880 
21900 
21920 
21940 
21960 
21980 



fECHO CONSOLE KEYBOARD ECHO RuUTInEJ PIH HAS ADPR OK Chah 



TSTB 


P«TPS 


BPL 


ECHO 


MOVB 


ePTH,p«iTPB 


RTS 


PC 
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CZLAFRgPIl 



03«JANo78 11130 



EKROH & PEPOBT ROUTINES 



n89 








22020 


sSBTTL 


EPBOR & REPORT HOUTlNES 


U90 








22040 


!«««««««««««» 




1191 








22060 


ICMDEKR BoUII 


nE To hanDle invaliu Connanu 


U92 








220B0 


l»»#«»»«««»»« 




H9J 








22100 






1194 


005062 








CMDERHi 




U9S 


m^'dbl 


012700 


020017 




MOV 


«ERUR0 


U96 


005066 


104000 




22160 


TKPE 




U97 


005070 


012700 


020123 




MOV 


#RDXfH0 


1198 


005074 


104000 




32200 


TXPE 




1199 


005076 








5000081 




(3) 


005076 








S0001SI 




(3) 


005076 


000207 






RTS 


PC 


1200 








22240 


l«««tt««tf««tt»« 




1201 








22260 


ISElEBR routine to HAnOLE SELECTION tRROBS 


1302 








22380 


J »»»«»«»»»«#« 




U03 








32300 






1304 


005100 








SEliERRl 




1205 


005100 


012700 


020032 




MOV 


#ER2»H0 


1306 


005104 


104000 




22360 


TXPE 




1207 


005106 


012700 


020123 




MOV 


»RDy#R0 


I20i 


005112 


104000 




32400 


TXPE 




1209 


005114 


012737 


016114 016164 




MOV 


8IN8Ur,PTK 


1210 


005i22 








50000$! 




(3) 


005122 








5000181 




(2) 


005122 


000207 






RTS 


PC 


1211 








22460 
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1213 








1214 








1215 








1216 








1217 








1218 


005124 






1219 


005124 


005037 


005434 


1220 


005130 


032737 


020000 


(9) 


005136 


001044 




1231 








1222 








1223 








1224 


005140 


013746 


016154 


1225 


005144 


012746 


000002 


1226 


005l5(,) 


012746 


020001 


1227 


005154 


004737 


007566 


1228 








1229 








1230 








1231 


005160 


113737 


002032 


1232 


005166 


013746 


0H5434 


1233 


005172 


012/46 


000003 


1234 


005176 


012746 


01777W 


1235 


005202 


004737 


007566 


1236 








1237 








1238 








1239 


005206 


013746 


016160 


1240 


005212 


012746 


000002 


1241 


005216 


012746 


020011 


1242 


005222 


004737 


007566 


1243 


005226 


012 700 


017761 


1244 


005232 


104000 




1245 








1246 








U47 








1248 


005234 


042737 


100377 


1249 








1250 








1251 








1352 








1253 


005242 


013700 


002034 


1254 


005246 


104000 




1255 


005250 






1256 


005250 


005037 


005434 


1257 








1258 








1259 








1260 


005254 


013737 


016160 


1261 


0H5262 


006337 


005434 


(7) 


005266 


006337 


005434 


(7) 


005272 


006337 


005434 


1262 


005276 


062737 


016170 


1263 


005304 


005277 


000124 


1264 








1265 









22500 
22520 
22540 
22560 
22580 



lERBgRS ERROR LOGGER AnP TYPEoUT ROUTINE 
I 

ERBORI 





CLR 


ERRSAV 




BIT 


#INHRPT,PCFLAG 




UNE 


500028 


22642 


1 




22644 


ICONVEPT TEST 


NO, For OUTPUT 


22646 


» 






MOV 


INTeST,«(SP) 




MOV 


»2#«(SPJ 




MOV 


»EHfe)*l6.»»(SP) 




JSR 


PC»02ASC 


22722 


1 




22724 


ICONVEPT ERHOP 


1 NO, FOP OUTPUT 


22726 


f 






MOVb 


cflags,krrsav 




MOV 


ERRSAV, -CSPJ 




MOV 


»3»-CSP) 




MOV 


»ER0*7,-ISP) 




wISR 


PCf02ASC 


22H22 


t 




22824 


ICONVEPT LINE 


NO. FOR OUTPUT 


22826 


» 






MOV 


ONLIN,«(SP) 




MOV 


»2#-(SPJ 




MOV 


»EP0+24.#-(SP) 




vJSR 


PC#02ASC 




MOV 


»ER0,R0 


22940 


TYPE 




22960 


1 




32980 


} CLEAR THE ERROR FLAG 


23000 


1 






BIC 


#MEHRN,CFLAG5 


23040 


J 




23060 


I GET THE POINTER SUPPLIED H^ The PROGRAM 


23080 


t AND PRINT THE ERROR DESCRIPTION MSG, 


23100 


1 






MOV 


TSCPTR»H0 


23140 


T^PC 

5000281 






CLR 


ERRSAV 


23200 


1 




23220 


1 UPDATE THE ERROR COUNT FOR THE FAILING LINE 


23240 


t 






MOV 


ONLIKiERRSAV 




ASL 


ERRSAV 




ASL 


ERRSAV 




ASL 


ERRSAV 




ADO 


»LXN00, ERRSAV 




INC 


lERRSAV 


23340 


f 




23360 


flF LOOP ON ERROR IS SET # MAKE THE 
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jJJ! 23380 f BeTUPN address OF THE TEST OOD, 

J^J: 23400 I THE TEST CONTFOLLEK WILL USE THf OLD 

*2°® 23420 I HPC TO RE-DO THE SUBTtST, 

1269 23440 I 

1270 005310 032737 040000 001364 BIT #L0OPOfc»PCf LAG 
(9J 005316 00U03 BEQ 50003S 

I2n 003320 052765 000001 000010 bis #8IT0,BPC (Bb) 

1272 003326 ' 5000381 



1273 



23520 I 



lilt 23540 J See if line ABORT FLAG IS SET 



1273 



23560 I 



1276 005326 032777 000020 000100 bIT #ABO»aERRSAV 
C9) 005334 001431 BEQ 50004S 

1277 23600 , 

rill 23620 I IF ABORT IS SET DESELECT THE LINE 

^*'J 23640 I UNLESS IT'S THE ONLY ONE BEING TESTED 

1280 23660 I 

1281 005336 032737 000040 001364 BIT »mULTI # PCFLAG 
(9) 005344 001417 BEQ S0005S 

1282 005346 042777 000377 000060 bIC «SEL| » 1 77,8ERRSAV 

1283 005354 013746 016160 MOV ONLIN,«.(SP) 

1284 005360 012746 000002 MOV #2#''CSPJ 

1285 005364 012746 020270 MOV »DBl,"(5PJ 

1286 005370 004737 007566 JSB PCOaASC 

1287 23800 J 

)?JJ 2^820 I NOTIFY OPERATOR THAT UNfc WaS DROPPED 

1289 23840 I 

1290 005374 012700 020242 moV #dB0,H0 

1291 005400 104000 23880 TYPE 

1292 23900 I 

nil „„5-^, „^„,„- 23920 , IF TESTING ONLY ONE LINK OONOT ALLOW jT TO 8E OESeLECIED 

12*4 00S402 000406 BR 500065 

C3) 005404 5000581 

1295 005404 052777 000200 000022 BiS #SEli9EPRSAV 

1296 005412 042777 000020 000014 bIC »AB0,9ERRSAV 

1297 005420 5000681 

1298 005420 5000481 

1299 24040 p 

n^? 24060 J HALT HERE IF HALT ON fcRROH IS SeT 

1301 24080 I 

1302 005420 032737 I00000 001364 bIT »HALT0E»PCFLAG 
(9) 005426 001401 BEO 500075 

1303 005430 000000 24120 HALT 

1304 005432 5000781 

1305 005432 50000SI 
(3) 005432 5000181 

(2) 005432 000207 gTS pQ 

1306 241B0 

1307 005434 000000 24200 ERRSftVi .wqRd 

1308 24220 

\l^l 24240 l»»»»»»»»«»*«**««»«»»»«*«»«*»*»»#»*«»»«#»«#««»»»»»««»»«»#««#^nnnj 

!,}:' 24260 , REPORT THIS RQUTIwE HAnDlES EwD uF TEST AwD 

*"» 24280 I END OF PASS REPORTS, 

}f}2 24 300 J »»»«»»*»»«»»»«»»»»«*««#«»«»«»»#»«»««♦#»«»»» t»»»#inj»#»<fj^^nn,g^j»^^ 



JJ}3 24320 



REPOPTI 
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1315 








24345 


t CHECI" 


', FOR END OF TEST CUNOITION 


1316 








24350 


1 






1317 


005436 


032737 


040000 


002032 




BIT 


«EOT#CFLAGS 


C9J 


005444 


001423 








BEU 


500028 


1318 








24365 


} 






1319 








24370 


J CONVERT TEST NO, FOR OUTPUT 


1320 








24375 


1 






1321 


005446 


013746 


016154 






MOV 


INTEST^-tSPJ 


1322 


005452 


012M6 


000002 






MOV 


«2f -(SP} 


1323 


005456 


012M6 


020210 






MOV 


»E0TM*1B,,-CSP) 


1324 


005462 


0^44737 


007566 






JSR 


PC»02ASC 


1325 








24445 


f 






1326 








24450 


1 Send 


END OF 


Test message 


1327 


005466 


042/37 


040000 


0021^32 




BIC 


»EOT,CFLAGS 


1328 








24455 


1 






1329 


005474 


012700 


020166 






MOV 


»EOTM#R0 


1330 


005900 


004737 


007010 






JSR 


PCMTYPE 


1331 


005504 


012700 


017051 






MOV 


»L3f R0 


1332 


005910 


004737 


007010 






JSR 


PCjMlYPfc 


1333 


005514 








50002SI 






1334 








24505 


} 






1335 








24510 


1 CHECK 


FOR END OF Pass CONDITIUM 


1336 








24515 


f 






1337 


005514 


032737 


0;<0000 


002032 




BIT 


»eop»cflags 


(9) 


005522 


001425 








BEQ 


50003$ 


1338 


005524 


013746 


016154 






MOV 


1NTEST,«.CSP) 


IJ39 








24545 


t 






1340 








24550 


iCONVbRT TEST 


NO, FOR OUTPUT 


1341 








24555 


} 






1342 


005530 


012746 


000002 






MOV 


«2r"(3P} 


1343 


005534 


012746 


020161 






MOV 


lEOPM* 19,,«(SP) 


I344 


00554^^ 


^'04737 


007566 






JSR 


PC,02A5C 


1345 








24605 


t 






1346 








24610 


t CONVERT PASS 


' NUMBER FOR OUTPUT 


1347 








24615 


J 






1348 


005544 


013746 


0M2036 






MOV 


TSCCNT|«(8PJ 


1349 


005550 


012746 


020145 






MOV 


#6;OPM*7#-(SP) 


1330 


005554 


004/37 


010006 






JSR 


PC#BIN2DA 


1351 








24685 


1 






1352 








24690 


1 SEND 1 


END OF 


Pass message. 


1353 








24695 


1 






1354 


005960 


012700 


020136 






MOV 


•COPMf R0 


1355 


005564 


004737 


007010 






JSR 


PCMTYPE 


1356 


005570 


042737 


020000 


002032 




BIC 


«eop,cflags 


1357 


005976 








5000361 






1338 


00557b 








50000SI 






(3) 


005976 








5000111 






(2J 


005976 


000207 








RTS 


PC 


1339 








24800 








1360 








24820 








1361 








24840 








1362 

















t f 
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StU vsi^bi 



U63 










000S0 


|»««*»»»«»«»»»*» 


1J64 










00070 


1 SETlO 


ROUTINE TO SET 1/U MODK 


136S 










000S>0 


1 #»«■»«*#»«.»»»»«« 


1J66 










00110 








IJ67 










00130 








1J&8 


00560(1? 










SETlOl 






1369 


0056tok) 










5H002SI 






1370 


005601^ 


032737 


000001 


001364 






biT 


»FLACl#PCrLAG 


(9) 


005606 


001003 










yNE 


500038 


1371 


005610 


0S2737 


00000J 


001364 






bis 


«ri,AGlJ#fLAG2,PCrLAG 


13/2 


005616 










50003$t 






13/3 


005616 


032737 


000001 


001364 






BIT 


»rLACl#PCFLAG 


(/) 


005624 


00176S 










BEQ 


500028 


14J 


005626 


032731 


000002 


001364 






BIT 


»FLAG2fPCriiAG 


17) 


009634 


001761 










BEQ 


500028 


1374 


005636 










5000081 






C3) 


005636 










5000111 






12) 


005636 


000307 










PT8 


PC 


lJ7S 










00320 








137b 










00340 
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1378 










00700 




.SBTTL 


INTERFACE SliSER 


1379 










00900 


l«»««««««tf«#» 




1380 










00950 


IBUILD 


SUBROUTINE TO BUILD THE 


1381 










01000 


1 


IN MULII LINE MODE, 


1382 










01050 


1 »«»»»»»»»»»» 




1383 


005640 


012737 


000003 


000066 


01100 


BlULDI 


HOV 


»BPT,66 


1184 


005646 


012737 


006120 


000004 


01150 




MOV 


«48iMACHER 


1385 


005654 


012701 


0l6l7n 




01200 




MOV 


»LlN00#hl 


1386 


005660 


012137 


016126 




01220 


ISI 


MOV 


IR1)4,DLFLAG 


1387 


005664 


012137 


016130 




01240 




MOV 


(RD^fDLAUR 


1388 


005670 


012137 


016132 




01260 




MOV 


lRl)+,DLVEC 


1389 


005674 


012137 


016134 




01280 




MOV 


(RU + #ULOTH 


1390 


005700 


013737 


016130 


016140 


01400 




MOV 


DLADR,UVCTX5 


1391 


0057»6 


062737 


000004 


016140 


01430 




ADO 


#4,DVCTXS 


1392 


005714 


013737 


0l6l4fc' 


016142 


01440 




MOV 


DVCTXSiDVCTXB 


1393 


005722 


062737 


000002 


016142 


01450 




ADD 


»2#0VCTXB 


1394 


005730 


U3737 


016135 


016160 


01500 




MOVe 


DL0TH*1,0NL1N 


1395 


005736 


005777 


010166 




01750 




TST 


iDLADR 


1396 


005742 


052)37 


100000 


016126 


01850 




BIS 


SDLPfPLFLAG 


1397 


005750 


012737 


000 300 


007564 


0l90if 




MOV 


»300#nELAYT 


1398 


005756 


112777 


000076 


010156 


01925 




MOVB 


»'>#»0VCTXB 


1399 


005764 


052777 


000100 


010146 


01950 




BIS 


«100#»DVCTXS 


1400 


005 772 


104006 






02050 




DELA^fR 




1101 


005774 


005737 


016132 




02100 




1ST 


DLVEC 


1402 


006000 


001433 






02125 




BEQ 


28 


1403 










02150 








1404 










02200 








1405 


006002 


052737 


00020M 


016126 


02300 




BIS 


»SEL,0LFLAG 


1406 


00601m 


013741 


016134 




02350 


381 


MOV 


DL0TH,-CRl) 


1407 


006014 


013741 


016132 




02400 




MOV 


DLVECr-CRl) 


1408 


006020 


013141 


016130 




02450 




HOV 


ULADR,-lRn 


1409 


006024 


013741 


016126 




02500 




MOV 


DLFLAG#»(R1) 


1410 










02550 








1411 


006030 


062 701 


000010 




02600 




ADO 


«10#R1 


HU 


006034 


020t27 


01677m 




02650 


381 


CMP 


Rl#»TABENU 


1413 


006040 


001307 






02700 




BNE 


18 


1414 


006042 


162701 


0000IH 




02750 


681 


SUB 


»10»Kl 


1415 


006046 


0057U 






02800 




TST 


(RD 


1416 


006050 


100403 






02850 




BMI 


78 


1417 


006052 


012711 


177777 




02900 




MOV 


8-1, tRD 


1418 


006056 


000771 






02950 




BR 


68 


1419 


006060 


012737 


0H0006 


000004 


03100 


781 


MOV 


#6#MACHEH 


1420 


006066 


000207 






03150 




RTS 


PC 


1421 


006070 


052737 


000020 


016126 


03200 


281 


BIS 


SABOiULFLAG 


1422 


006076 


042737 


000200 


016126 


03250 




BIC 


DSELfDLFLAG 


1423 


006104 


004737 


005124 








J5R 


PCfEBROR 


1424 


006110 


012700 


020055 




03350 




MOV 


»li:R7,R0 


1425 


006114 


104000 






03400 




TYPE 




1426 


006II6 


000/34 






03450 




HR 


38 


1427 










03500 








1428 


006120 


062706 


000004 




03550 


481 


ADD 


I4»SP 


4429 


006124 


000I43 






03600 




BR 


58 


1430 










03650 








1411 










03700 


1 «##»»#»»»#»» 




1432 










03750 


} CATCH 


REPLACES TRAP CATCHI 


1433 










03800 


1 »#»«»««#««»# 





ROUTINES 

DEVICE TABLE USED 



I SET UP COwSOLfc IWAP 
|SET UP NXM TRAP 



I THY TO ACCESS UVC, 

JSET UVC PHESENl FLAG 

J SET UP FOH UELAY 

JTXMIT A ">" CmAHACIEH 

ISET OVC TX INTR tWAHLE 

JWAII FOH I'i'TEHHUPr 

jlt ZLmO NQ INIEKKUPT UCCUHtD 

;NQ INTERRUPT «• BHANCn 

iniHERwISE OLVtCsAtfUK THAT 

JUVC INTEKRUPrEU 10 VAA If-IHAF' 

I SET SELECIELt FLAG 

>PUT '«fEw INFORMATION 
I INTO LINE TABLE 



IJUMP POINTER TO f^EXl HHfc 

lALL DUNE ? 

jNU » UU fiEXl LlNt 

ICKECH LAST ENTKX 

iFOH LINE PREvSENT 

I IF NOT SET IT TO Et''-i> 

|0F TABLE 

IRESET TRAP CAICHEK 

jSET ABORT fLAG 

|MAKE SURE LINE IS DEiiELEC I'EO 

;SU ERROR MSG 

ITYPE MSG ON CONSOLE 

|FIX TABLE ENTRIES 



I ERASE INTR FROM STACK 

|GET NEXT LINE ENTRY 
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006136 


01270f 


001000 


038S0 


caTchi 


MOV 


»1000»B0 


nSTABT AT 




006132 


0050410 




03900 


ist 


CLK 


-IB0) 


jPUT HALl IN PC+2 




006U4 


010037 


016100 


03950 




MOV 


B0,TEMP 






006140 


013740 


016100 


04000 




MOV 


fEMP,«CH0j 


|PUT PC+2 l^ PC 




006144 


020027 


000100 


04050 




CMP 


H0f #100 


iriN? 




0061S0 


002170 




04100 




BGi; 


IS 


|N0 « DO MUHt 




006152 


012737 


003466 


000060 04200 




MOV 


«HEADKB»f8TKV 


pSU CUNSULt 




006160 


000207 




042S0 




RT5 


PC 












04300 


















04500 
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1451 










05402 






14S2 










0S450 




.SBTTL 


1453 










05500 


|» » » 


» « « « 


1454 










05550 


iTHiS SECTION 


1455 










05600 


|BY TKAP5 THRO 


1456 










05650 


1* » » 


« « « » 


1457 










05700 






1458 


006162 








05750 


EMTROSi 




(4) 


006162 


011637 


016112 








MOV 


1459 


006166 


162737 


000002 


016112 


05800 




SUB 


1460 


006174 


017737 


007712 


016110 


05830 




MOV 


1461 


006202 


042737 


104400 


016U0 


05950 




BIC 


1462 


006210 


062737 


006230 


016110 


06000 




ADD 


1463 


006216 


017737 


007666 


016112 


06050 




MOV 


1464 


006224 


000177 


007662 




06100 




JMP 


1465 










06150 






1466 










06200 


,EVEI^ 




1467 


006230 


006240 






06250 


EMTABLl 


ETYPE 


1468 


006232 


007212 






06J00 




PRTLTB 


1469 


006234 


007162 






06350 




INTRAP 


1470 


006236 


007530 






06400 




DEI^AlfM 



EMT HANDLER 



« » « « 



»«»»«» 



iTHiS SECTION CONTAINS THE HAnDlER AnD mOSI RuUHnES ACCESSti? 



(8PJ,TEMp+}2 

»2#TEMP+12 IGET REAL PC 

iTEMP4-12»TEHp + ik9 ;GET EMI IHSlHUCHOw 

#104400, IEMP + 10 JMASK INSTfi BUS 

»EMTaBL»IEMP+10 fADD TaBLiE AUDH 

PTEMP+10,TEMP+12 

3TEMP+12 



fNSOLE TYPE ROUTINE 
JLINE TABLE PRINTEH 
|DL INTERRUPT CftlCHER 
}DEtiA¥ ROUTINE 
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H72 
H73 
1474 
1475 
14 76 
1477 
1479 
1479 
1480 
1481 
1482 
1483 
1484 
148s 
1486 
1487 
1488 
1489 
1490 
1491 
1493 
149J 
1494 
1499 
1496 
»497 
1493 
1499 
1300 
1501 
1^02 
1^03 
1504 
1S0S 
1506 
1507 
1508 
1509 
lSt0 
1511 
1512 
1513 
1314 
ISIS 
1516 
(4) 
1517 
1318 
1319 
1520 
1521 
1522 
1533 
1334 
1323 
SS26 



006^40 
006^43 
006;i44 
006:150 
00^252 
006296 

006264 
006266 



006270 
006274 
006276 
006302 
006J06 
006312 
006316 
006334 
006332 
006340 
006J46 
006354 
006362 
006370 
006374 
006400 
006406 
006410 
006416 
006422 
006434 
006490 
006432 
006432 
006434 
006440 
006443 
006446 
006492 
0064S6 
006460 
006462 
006466 
006470 



10S710 
001406 
1WI737 
100375 
112037 
000770 
109737 
100378 
000002 



010337 
010446 
012702 
003037 
013704 
013732 
013737 
062737 
013777 
012777 
012737 
113777 
012777 
009337 
004737 
032737 

001741 
042737 
010237 
104006 
00S737 
00|004 



177566 



006646 

020434 
020670 
020574 
016132 
016144 
000002 
016150 
000004 
000310 
006646 
000|00 
020670 
002110 



006650 
020670 



013604 

013702 006646 

000207 

010437 006652 

012704 020574 

012702 020434 

021224 

001404 

020437 006632 

001403 

000772 



016150 
016150 
007604 
007602 
007564 
007960 
007550 



001364 
001364 



06690 
06700 
06790 
06800 
06650 
06900 
06930 

07000 

07050 
07100 
07150 
07200 
07250 
07279 
07287 
07300 
07350 
07400 
07450 
07500 
07590 
0)600 
07650 

07750 
07800 
07850 
07900 
07950 
08000 
08050 
08100 
08150 
08200 
08250 
083k)0 

08400 
08450 
08900 
08990 
08600 
08690 
08700 
08750 

08800 
08850 
08900 
08950 



tBBTTl. X/0 DRIVERS 

lElYPIs; CONSOLE OUTPUT ROUTlNt, tNTEH WITH ADDRtSS QF 
t DSTA IN R0, NULL TERMINATES OUTPUT, 



ETyPEI TSTb 
BEQ 

111 TSTB 
BPL 
MOVB 
BR 

TSTB 
BPL 
RTl 



381 



{R0J 
38 

9iTPS 
19 

CR0) + #?(»TPB 

ETlfPt; 

P#TPS 

35 



fMiCHO TERMINAL OUTPUT ROUTl 

I CHAR IN R3 

I INTERRUPT DRZVGN ALL 



ICHECK FOR NULL 

lEXIT ROUTINE 

iCHECK FOR TRANSMIT Rfe;ADX 

fMAZT 

ITRANSMII CHARACTER 

|G£T NEXT CHAR 

fWAlT TILL kbh DONE 

I EXIT,,, 



ne w Single char 

LINES 



} 



MECHOI 



1211 



281 
381 



09050 4St 

09100 

09150 



MOV 

MOV 

MOV 

CLR 

MOV 

MOV 

MOV 

ADD 

MOV 

MOV 

MOV 

MOVB 

MOV 

INC 

JSR 

BIT 

BEQ 

BIC 

HoV 

DELAlfR 

TST 

BNE 

MOV 
MOV 
RTS 
HOV 
MOV 
MOV 
CMP 
BEQ 
CMP 
BEQ 
BR 



R2iM5AVE 

R4,-(5PJ 

»STACK2,R2 

ENDS 

»STACK3#R4 

DLVEC#CR2)+ 

TXVEC^SAVE 

#2fSAVE 

SAVE,PTXVEC 

»IOT,»SAVE 

»200.#DELAYT 

MSAVE|9DVCTXB 

#100,»DVCTX8 

ENDS 

PC»LINM0N 

SLDONE,PCFLAG 

19 

»LDONE#PcrLAG 

R2#MSAVE+2 

ENDS 
39 

CSPJ+,R4 

M5AVE,R2 

PC 

R4»MSAVE+4 

»STACK3rR4 

#STACK2»R2 

CR23»(R4)+ 

59 

R4#MSAVE+4 

68 

49 



lINITIALlZfc STACK2 
jZERO COUNT 

IINITIALIEE STACK3 
|GET THE BASE VECTOR AUOR 

I SAVE THE VECTOR 
I 

|PUT ADPR+2 INTO ADOR 
fPUT TRAP INTO AD0R#2 

|WA1T FOR 200 MS, 

|PUT CHAR IN BUF REG 
lENABLE IX INTERRUPT 
lADD 1 TO INXR PENDING COUNT 

I END or DVC LIST 7 
|N0 DO THIS LINE 

ISAVE STACK2 POINTER 

|ALL PENDING INTERRUPTS SHOULD 
|BE COUNTED DOWN BX TXTRAP, 



lEXlT,,, 

iSAVE STACK 3 LIMIT 

I RESET STACK J POINTER 

I RESET SIACK2 POINTER 

I VECTOR MATCH ? 

I YES - BRANCH 

ISTACK END 7 
I YES - BRANCH 
^COMPARE NEXT VfcCT, 
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1527 


006472 


005012 






09300 


591 


CLR 


(R2} 




)EHASK VecT OU'l 


1538 


006474 


00S044 






09350 




CLR 


-CR4) 




lERASE VECT IN 


1529 


006476 


062702 


000002 




09400 


6SI 


ADO 


«Z#H2 




JMOVE STACK POINTKR 


1330 


006502 


020237 


006650 




09450 




CMP 


R2r«5AVC+2 




lEND or OUT STACK ? 


1531 


006906 


001403 






09900 




BEQ 


79 




J YES - GO GET ODD VEClOK 


1333 


006910 


012704 


020574 




09990 




MOV 


i5TACK3,R4 




iRESET 5TACK3 POINTER 


1533 


006914 


000760 






09600 




BR 


49 


JKEEP 


SORTING 


1534 


006916 


0J2702 


030434 




09690 


781 


MOV 


#5TACK2#R2 


IRESET 


S1ACK2 POINTER 


1535 


006522 


005712 






09700 


881 


TST 


(R2) 


ICHECK 


FOR WON ZERO 


1536 


006924 


001003 






09750 




BNE 


98 






1937 


006526 


062702 


000002 




09800 




ADD 


«2»H2 






1538 


006532 


000773 






09850 




BP 


68 






1539 


006934 


012737 


016174 


006652 


09900 


98i 


MOV 


#LIN004-4,MSAVE*4 




|GET VECT FROM TABLE 


1540 


006542 


027712 


000104 




09950 


1091 


CMP 


iMSAVE+4#CH2) 


IMATCH 


? 


1541 


006546 


001404 






10000 




BEQ 


118 


lYES THIS LINE IS N.G. 


1542 


006550 


062737 


000010 


006652 


l00Sfe' 




ADD 


»10,hSAVfc+4 




|MOVE POINTER TO f.fcXl 


1543 


006396 


000771 






10100 




BR 


109 






1544 


006560 


062737 


000002 


006652 


10150 


list 


ADD 


»2#MSAVEf4 


|GET LINE NUMBER 


1549 


006566 


017737 


000060 


016160 


10200 




MOV 


fMSAVE+4#0NLIN 






1546 


006574 


109037 


0l6l6u 




10250 




CLRB 


ONLIN 






1947 


006600 


000337 


016160 




10300 




SWAB 


ONLIN 


1 ERASE 


JUNK BITS 


1548 


006604 


004737 


002432 




103S0 




JSR 


PCMTW 




JMUVF. TABLE 10 WORK AHEAS 


1549 


006610 


012737 


0200S5 


002034 


10400 




MOV 


#ER7,TSCPTR 




IPOINT TO ERJ'OR (»^t&SAUE 


1550 


006616 


112737 


000377 


002032 


10450 




MOVB 


»377»CFLAG5 




;ERROR NO, 


1531 


006624 


052737 


100000 


002032 


10500 




BIS 


»MERR,CFLAGS 




>SET rRROR FLAG 


1332 










10551 


1 »»#»»»«■»«■««#«#»»#»* 






1953 










10600 


J ERROR 377 


» 






1554 










10650 


1 #«»«««««« »4»««9»«««« 






15SS 


006632 


004737 


005124 








JSR 


PC#EBROR 






1596 


006636 


042737 


100377 


002032 


10750 




BIC 


»WERRN,CFLAGS 


1 ERASE 


ERROP DATA 


1557 


006644 


000672 






10800 




BR 


12$ 


ICLEAN 


HOUSE & EXIT 


1558 


006646 


000000 


000000 


000000 


10850 


M5AVEI 


,W0RD 


0»0»0 






1559 










10855 












1560 










10856 












1561 










10857 












1562 










10860 


l»«*#»«*a»»»#»»» 






1S6J 










10861 


t SECHo 


SINGLE LINE ECHO RqUTINE 




1564 










10862 


1 


ENTER WITH CHAR IN R2 






1565 










10863 


t 


TRANSMITTS to DVC VIA 


I/O DRIVER ^ORK AREA 


1566 










10864 


1 #»»»»«»#*»»#»»» 






1367 










10865 












1368 










10866 












1569 


006654 










SECHO 1 










1570 


006654 


013737 


016144 


016150 






MOV 


TXVECSAVE 






1371 


006662 


062737 


000002 


016150 






ADD 


#2fSAVE 






1572 


006670 


012777 


007510 


007246 






MOV 


«SIRAP,iTXVEC 






1S73 


006576 


012777 


000200 


007244 






MOV 


#PRl4fi>SAVE 






1374 


006704 


012737 


000144 


007564 






MOV 


#100,»D£LAYT 






1575 


006712 


110277 


007224 








MOVB 


R2»iDVCTXB 






1976 


006716 


012777 


000100 


007214 






MOV 


#l00i§DVCTXS 






1977 


006724 


00S237 


020670 








INC 


ENDS 






1578 


006730 


104006 






10877 


DELAYR 








1579 


006712 


00S737 


020670 








TST 


ENDS 






(9) 


006736 


001413 










BEQ 


900023 






SS80 


006740 


013737 


02005S 


002034 






MOV 


#SB7»TSCPTR 






ISil 


006746 


0S3737 


100376 


002032 






BIS 


#376llMERR,CFLAG5 
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1494 


006126 


012701^ 


001000 


03850 


CATCH 1 


MOV 


#1000fH0 


IfSTAHT AT 1000 


1439 


006132 


00504k? 




03900 


ISI 


CLK 


-CP0) 


IPUT HALT IN PC*'2 


1436 


006134 


010037 


016100 


03930 




MOV 


H0,ti;mp 




1437 


006140 


013740 


016100 


04000 




MOV 


TEHP,«(H0) 


fPUT PC+2 l^ PC 


1436 


006144 


M20027 


000100 


04050 




CMP 


K0,ffl00 


|FIN? 


1439 


006150 


002370 




04100 




BGi 


13 


|N0 " DO MuHE 


1440 


006152 


012737 


003466 


000060 04200 




MOV 


»HEADKbf9llTKV 


fSU CUNSULt 


1441 


006160 


000207 




04250 




RTS 


PC 




1442 








04300 










144(> 








04500 
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1451 










05400 






1452 










05450 




,SBTTL 


1453 










05500 


j« # » 


« « « * 


1454 










05550 


ITHIS SECTION 


1455 










05600 


}B¥ TKAPS THRO 


1456 










05650 


;* » # 


» » « # 


1457 










05700 






1458 


006162 








05750 


EMlBOSi 




(4) 


006162 


011637 


016112 








MOV 


1459 


006166 


162737 


000002 


016112 


05800 




SUB 


1460 


006174 


017737 


007712 


016110 


05850 




MOV 


1461 


006202 


042737 


104400 


016U0 


05950 




BIC 


1462 


006210 


062737 


006230 


016110 


06000 




ADD 


1463 


006216 


017737 


007666 


016112 


06050 




MOV 


1464 


006224 


000177 


007662 




06100 




JMP 


1465 










06150 






1466 










06200 


.EVEN 




1467 


006230 


006240 






06250 


EMTABLi 


ETXPE 


1468 


006232 


007212 






06300 




PRTLTB 


1469 


006234 


007162 






06350 




INTRAP 


1470 


006236 


007530 






06400 




PEIiAlfM 



EMT HANOLE*< 



« « « « 



fTHis SECTION Contains the HAwObER and mosx routines ACCEssti? 



{8PJ,TEMp+|2 

#2»tEMP+i2 IGET REAL PC 

iTEMp+i2»TEHP + lki ;Gt,T EMT INSIRUCHOn 

#104400, IBMP + 10 IMASK INSTR BUS 

»EMTaBIj»TEMP+10 I add TabIiE AUDR 

PTEMP + i0,TEMP-l-12 

gTEMPfi2 



iNSOliE TYPE ROUTINE 
ILINE TABLE PRiNTEh 
|DL INTERRUPT CAICHER 
iDfcl.AY ROUTINE 



• • 
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H72 
H73 
i474 
J475 
1476 
H77 
1§78 
1479 
1480 
1481 
1482 
1483 
1484 
1483 
1486 
1487 
1488 
1489 
1490 
1491 
H92 
149J 
1494 
1499 
1496 
»497 
1498 
1499 

1S00 

1501 
1S02 
1S0J 
1304 
1905 
1506 
1307 
1508 
1509 
1510 
1511 
1512 
1513 
1314 
1515 
1316 

1517 
1518 
1519 
1520 
1521 
1522 
1533 
1524 
1523 
1526 



006;j40 

006^42 
006;j44 
0064150 
006292 
006^36 
006ab0 
006264 
006266 



006270 
006274 
006276 
006302 
006306 
006312 
006316 
006324 
006332 
006340 
006146 
006354 
006362 
006370 
006374 



006406 
006410 
006416 
006422 
006434 
006430 
006432 
006432 
006434 
006440 
006443 
006446 
006492 
0064S6 
006460 
006462 
006466 
006470 



103710 
001406 
105737 
100375 
112037 
000770 
105737 
100375 
000002 



010237 
010446 
012702 
00303? 
012704 
013722 
013737 
062737 
013777 
012777 
012737 
113777 
012777 
00S337 
004737 
032737 
001741 
042737 
010237 
104006 
005737 
001004 

013604 
013702 
000207 
010437 
012704 
013703 
021234 
001404 
020437 
001403 
000772 



177566 



006646 

020434 
020670 
020574 
016132 
016144 



016130 



000310 
006646 

000|00 

020670 

002110 

000400 



006650 
020670 



006652 
020574 
020434 



006652 



06630 
06700 
06750 
06800 
06850 
06900 
06950 
07000 
07050 
07100 
07150 
07200 
07250 
07275 
07287 
07300 
07330 
07400 
07450 
07500 
07350 
07600 
07650 

07750 

07800 

07850 

07900 

016150 07950 

016150 08000 

007604 08050 

007602 08100 

007564 08130 

007360 08200 

007550 08250 

08300 

001364 08400 
08450 

001364 08300 
08550 
08600 
08650 
08700 
08750 

08800 
08850 
08900 
08950 



09050 
09100 
09150 
09200 
09250 



gSBTTlj X/0 DP1VEH5 

lETYPE CONSOLE OUTPUT ROUTINE, EnTEH WITH ADDHE5S OF 
I DATA IN R0g NULL TERMINATES OUTPUT, 



ETyPEI TSTb 

BEO 

TSTB 

BPL 

MOVB 

BR 

TSTB 
BPL 
BTI 



151 



3il 



imecho termin 

I CHAR I 

I INTERR! 

MECHOI MOV 
MOV 
MOV 
Ct.R 
MOV 

ISI MOV 
MOV 
ADD 
MOV 
MOV 
MOV 
MOVB 
MOV 
INC 
JSR 
BIT 
BEQ 
BIC 
MoV 

DEliAYR 
TST 
BNE 



291 
391 



4SI 



MOV 
MOV 
RTS 
MOV 
MOV 
MOV 
CMP 
BEQ 
CMP 
BEQ 
BR 



tR0) ICHECR FOR NULL 

38 {EXIT ROUTINE 

^9TRS iCHECK FOR TRANSMIT READX 

18 |WAIT 

(R0)+#&8TPB ITRANSMIT CHARACTER 

ETYPE |GET NEXT CHAR 

&»TPS |WAIT TILL ALL DONE 

3S 

I EXIT,,, 



al output Routine « single char 

N R2 

UPT DRIVEN ALL LINES 



R2»MSAVE 

R4i-(5P) 

#STACK2,R2 

ENDS 

»STACK3#R4 

DLVEC#(R2)4 

TXVEC»SAVE 

»2#SAVE 

SAVE,9TXVEC 

8I0T,9SAVE 

»200,»DELAYT 

MSAVEiPDVCTXB 

»100,S>DVCTXa 

ENDS 

PC#LIMMON 

ILDONEfPCFLAG 

IS 

«LDONE#PCFLAG 

R2#MSAVE+2 

ENDS 
3$ 

CSPJ4.»R4 

N5AVE,R2 

PC 

R4»MSAVE+4 

»STACK3rR4 

»STACK2#R2 

(R2)»(R4)+ 

58 

R4|MSAVE-»-4 

6$ 

48 



) 



IINITIALIZE STACK2 
I ZERO COUNT 

IINITIALIEE STACK3 
|GET THE BASE VECTOR ADDR 

I SAVE THE VECTOR 
f 

|PUT ADDR42 INTO ADOR 
|PUT TRAP INTO ADOR+2 

|WAIT FOR 2H0 MS, 

|PUT CHAR IN BUF REG 
lENABLE IX INTERRUPT 
lADD 1 TO iNfR PENDING COUNT 

I END OF OVC LIST 7 
|N0 DO THIS LINE 

JSAVE STACK2 POINTER 

|ALL PENDING INTERRUPTS SHOULD 
|BE COUNTED DOt^N BY TXTHAP, 



JEXIT.,, 

JSAVE STACK 3 LIMIT 
I RESET STACK3 POINTER 
IRESET STACK2 POINTER 
I VECTOR MATCH ? 
»YES •• BRANCH 

ISTACK END ? 
I YES « BRANCH 
;C0IMPAHE NEXT VECT, 
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1527 


006472 


005012 






09300 


581 


CLR 


CR2) 




IEHaSE VecT QO'l 


1328 


006474 


00S044 






09350 




CLR 


-CR4) 




lERASE VECT in 


1529 


006476 


063702 


000002 




09400 


6SI 


ADD 


»Z#R2 




|MOVE STACK POINTER 


1530 


006302 


020237 


006650 




09450 




CMP 


R2rM5AVE+2 




lEND OF OUT STACK ? 


1331 


006306 


001403 






09500 




BEQ 


78 




J YES - GO GET ODD VEClOH 


1532 


006310 


012704 


020574 




09550 




MOV 


#5TACK3fR4 




iRESET STACK3 POINTER 


1533 


006514 


000760 






09600 




BR 


48 


IKEEP 


SORTING 


1534 


006S16 


012702 


020434 




09650 


781 


MOV 


»STACK2rR2 


jRESET 


SIACK2 POINTER 


1535 


006522 


005712 






09700 


881 


TST 


(R2) 


fCHECK 


FOR VON ZERO 


1536 


006324 


001003 






09750 




BNE 


98 






1537 


006526 


062702 


000002 




09800 




ADD 


»2#R2 






1538 


006532 


000773 






09850 




BP 


88 






1539 


006334 


012737 


016174 


006652 


09900 


981 


MOV 


#LIN004'4,MSAVE<$'4 




JGET VECI FROM TABLE 


1540 


006542 


027712 


000104 




09950 


I0S1 


CMP 


iMSAVE+4iCR2) 


IMATCH 


7 


1541 


006346 


001404 






10000 




BEQ 


118 


jYES THIS LINE IS N.G. 


1542 


006550 


062737 


000010 


006652 


l00Sfei 




ADD 


»l0#h5AVfc+4 




JMOVE POINTER TO f.fcXl 


1543 


006556 


000771 






10100 




BP 


10$ 






1544 


006560 


062737 


000002 


006652 


10150 


US! 


ADD 


#2#MSAVE+4 


|GET LINE NUMBER 


1545 


006566 


017737 


000060 


016160 


10200 




MOV 


iMSAVE4-4»ONLIN 






1546 


006574 


105037 


016160 




10250 




CLRB 


ONLIN 






1547 


006600 


000337 


016160 




10300 




SWAB 


ONLIN 


1 ERASE 


JUNK BITS 


1548 


006604 


004737 


002432 




10350 




JSR 


PC,MTW 




|MUVE TABLE 10 WORK AREAS 


1349 


006610 


012737 


0200S5 


002034 


10400 




MOV 


SER7,TSCPTR 




fPOINT TO ER^UR Mt&SAUfc 


1550 


006616 


112737 


000377 


002032 


10450 




MOVB 


«377#CFLAG5 




JERROR NO. 


1551 


006624 


052737 


100000 


002032 


I050t) 




BIS 


»MERR,CFLAGS 




JSET f;RROR FLAG 


1532 










10551 


1 *«»#»»»»»»**»»»«»«» 






1353 










10600 


1 ERROR 377 


» 






1554 










10650 


>»#»■»»»»«»»»#»«»»»»« 






1533 


006632 


004737 


0^*5l24 








JSR 


PCiERROR 






1336 


006636 


042737 


100377 


002032 


10750 




BIC 


»MCRRN,CFLAGS 


1 ERASE 


ERROR DATA 


1557 


006644 


000672 






10800 




BR 


12$ 


JCLEAM 


HOUSK & EXIT 


1538 


006646 


000000 


000000 


000000 


10850 


MSAVEI 


,W0PD 


0»0»0 






1559 










10855 












1560 










10856 












1561 










10857 












1362 










10860 


1 »«♦««###»»»«»«» 






1363 










10861 


f SECHO 


SINGLE LINE ECHO RqUTInE 




1364 










10862 


1 


ENTER WITH CHAR IN R^ 






1365 










10863 


J 


TRANSMITTS TO DVC VIA 


I/O DRIVER ^ORK AREA 


1566 










10864 


J »«»»««*«««»#«*» 






1367 










10865 












1568 










10866 












1369 


006654 










secHoi 










1570 


006654 


013737 


016144 


016130 






MOV 


TXVEC#SAVE 






1571 


006662 


062737 


000002 


016150 






ADD 


#2#SAVE 






1572 


006670 


012777 


007510 


007246 






MOV 


#5TRAP,|iTXVEC 






1573 


006676 


012777 


000200 


007244 






MOV 


»PRl4»iSAVE 






1574 


006704 


012737 


000144 


007564 






MOV 


#100,»OELAYT 






1573 


006712 


110277 


007224 








MOVB 


R2i8DVCTXB 






1576 


006716 


012777 


000100 


007214 






MOV 


S100,fDVCTX5 






1377 


006724 


00S237 


020670 








INC 


ENDS 






1578 


006730 


104006 






10877 


DELAYR 








1379 


006733 


003737 


020670 








TST 


ENDS 






(93 


006736 


001413 










BEQ 


S0003S 






His 


006740 


013737 


0200S5 


002034 






MOV 


IEB7»TSCPTR 






15il 


006746 


§52737 


100376 


002032 






BIS 


M76l»MERR,CFLAG5 
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1382 
1583 
1584 
IS85 
1586 
1587 
1588 

(3) 

C2J 
1589 
1590 
1591 
1392 
1393 
1594 
1595 
1396 
1597 
1598 
1399 
1600 
1601 
1602 
1603 
1604 
1605 
1606 
1607 
1608 
1609 
1610 
1611 
1612 
1613 
1614 
161S 

C9) 
1616 
1617 
1618 
1619 

(9) 
1620 
1621 

C3J 
1622 
1623 
1624 

C3J 

(2) 
1625 
1626 
1627 
1628 
1629 
1630 



006754 
006760 
006766 
006766 
006774 
007000 
007006 
007006 
007006 



007010 
007012 
007014 
007020 
007022 



007024 
007024 
007032 
007036 
007044 



004737 
042737 

013777 
005077 
013737 



112002 
001403 
004737 
000773 
000207 



042737 
010237 
012777 
104006 



007046 032737 

007054 001003 

007056 052765 
007064 



007064 
007070 
007072 
007100 
007102 
007102 
007106 
007106 
007106 
007106 



105737 
001004 
042737 
000402 



005124 
100377 

0161S0 
007150 
016160 



002032 
007150 
016150 



004000 
007564 
000101 



004000 

100000 

016160 

000003 



001364 
000004 



005077 007022 



10900 
10950 

11000 

11050 
1U00 
11150 
11200 
11250 
11300 

11400 
11450 
11460 
11462 
11464 
11466 
11468 
11470 
11472 
11474 



11480 
11481 



11500 
11502 
11504 
11506 
11508 
11510 



50002$! 



J5R 
BIC 

HOV 
CLB 
MOV 



PC»KBBOR 
»MeHBN,crLAGS 

SAVE#»TXVEC 

iSAVE 

ONLXN^SAVE 



50000$! 
50001Si 



jmtype terminal output Routine « line table versiow 
I enter with addr or msg in R0 



mtypei movb 

BEQ 
JSP 

l$l RTS 



(R0}-t>fR2 
IS 

PCiMECHO 

MTYPE 

PC 



>GET ChfiR To PRInT 
fEXIT IF NULL CHAR 



|GET NEXT CHAH 
ftXIT,, 



I HEADIO THIS ROUTINE MONITORS An I/O KtAO OPKRATiqm 



«DATA1N,PCFLAG 

R2»DELAYT 

•101,PDLADR 



READIOi 

BIC 

MOV 

MOV 
DELAYR 
I IF NO CHAR BECVD t^ITHXN (R2) ^s SET ERROR FLAG 

BIT #DATAIN»PCFLAG 

BNE 50002$ 

BIS »M£RR,MFLAGS(R5} 
5000291 
I IF ON LINE-0 CUtkR I/O MODE FLAGS 

TSTB ONLIN 

BNE 50003$ 

BIC »FLAGll»FLAG2iPCFLAG 

BR 50004$ 



50003$! 

50004S! 
500006! 
50001S! 



clh 



@DlADR 



J TYPES TERMINAL OUTPUT ROUTINE 



SlN^iLt LINE 
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1631 








11512 






1632 








11514 






1633 


007110 


112002 




11516 


TyPESI 


MOVB CR0) + #R2 IGEI CHAR XO PHliwT 


1634 


007112 


001403 




11511 




BEQ IS lEXIT IF NULL 


1635 


007U4 


004737 


006654 


11520 




JSR PC»SECHO iSEND THE MESSAGE 


1636 


007120 


000773 




11522 




BR TYPES 


1637 


007122 


000207 




11524 


ISI 


RTS PC lEXII 


1638 








11526 






1639 








11528 






1640 








11530 


1 «»»»»«««»«»»#»» 


1641 








11532 


f REAUS 


THIS ROUTInF SETS UP DVC HECVR VEC: 


1642 








11533 


t 


IF THE CURRENT LINE IS NOT HNE-M0 


1643 








11534 


j*»»«»»»»»»»«»»» 


1644 








11536 






1645 








11538 






1646 


007124 








READS! 




1647 


007124 


105737 


01616H 






TSTB ONLIN 


(9) 


007130 


001003 








BNE 50002$ 


1648 


007132 


004737 


00560*1 






JSR PCiSETIO 


1649 


007136 


000410 








BR 50003$ 


(3J 


007140 








50002$! 




1650 


007140 


010277 


006766 






HOV R2#PDlVEC 


1651 


007144 


013702 


016132 






MOV DLVEC#R2 


1652 


007150 


062702 


000002 






ADD »2#R2 


16S3 


007154 


012712 


000200 






MOV »PRI4i(R2) 


16S4 


007160 








50003$! 




1655 


007160 








50000$! 




13) 


007160 








50001$! 




C2) 


007160 


000207 








RTS PC 


1696 








11554 






1657 








11556 
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1&39 








1660 








1661 








1662 








1663 








1664 








166S 


007162 


005077 


006752 


1666 


007166 


012637 


016132 


1667 


007172 


062706 


000002 


l66i 


007176 


162737 


000010 


1669 


007204 


005037 


007564 


1670 


007210 


000002 




1671 








1672 








1673 








1674 








167S 








1676 








1677 








1676 


007212 






(2) 


007212 


013746 


016100 


1679 


007216 


013746 


016102 


1680 


007222 


012702 


016170 


1681 


007226 


012700 


017676 


1682 


007232 


104000 




1683 


007234 


005712 




1684 


007236 


100406 




168S 


007240 


062702 


000010 


1686 


007244 


021227 


177777 


1687 


007250 


001452 




1688 


007292 


000770 




1689 


007254 


012237 


016100 


1690 


007260 


012246 




1691 


007262 


012746 


000004 


1692 


007266 


012746 


017743 


1693 


007272 


004737 


007566 


1694 


007276 


012246 




169S 


007300 


012746 


000003 


1696 


007J04 


012746 


017752 


1697 


007J10 


004737 


007566 


1698 


007J14 


012237 


016102 


1699 


007320 


000337 


016102 


1700 


007324 


013746 


016102 


1701 


007330 


012746 


000002 


1702 


007334 


012746 


017733 


1703 


007340 


004737 


007566 


1704 


007344 


012700 


017733 


1703 


007J50 


104000 




1706 


007352 


105737 


016100 


1707 


007356 


001403 




1708 


007360 


012700 


020117 


1709 


007364 


000402 




1710 


007366 


012700 


020105 


1711 


007J72 


104000 




1712 


007374 


000723 




1713 


007376 







0t6l32 



11595 
11600 
11650 
11700 
11750 
11800 
11875 

11900 
119S0 
12000 
12050 
12100 
12150 
12200 
12250 
12300 
12350 
12400 
12450 



12650 
12700 
12750 
12800 
12850 
12900 
12930 
13000 
13050 
13100 



13500 
13550 
13600 



13800 
13850 
13900 
13950 
14000 
14050 
14100 
14150 
14200 
14250 
14300 



tSBTTL TRAP ROUTINES 

HNTRAPi USED BSf TABLE BUilD TO UET AD0PSS5 THAT A I,^^t 

I INTrPRUPTS TO AN STORE IT IN • DLVEC, 

; TRANSMIT INTERRUPT USED, DLV HAS Ng MAINT MOfE- 



intrapi ClR 

MOV 
ADD 
SUB 
CLR 
RTI 



80VCTXS 
(SPJ+, DLVEC 
»2»SP 

«10, DLVEC 
OELAYT 



IUiSABlE Thi; i/jfERRUPTS, 

|SP4'2 ADJUST STACK POINTEH 
fADJUST 10 PCVR INTP ADPH 
IRESET TIMER 
IGO BACK TO BUILD HOUTJNE 



IPRTLTB THIS RqUTInE TYPES THE LINE TABLE ON THE ConSolE 

I DEVICE. DROPPED FLAGS ARE DECODED A'JO THE 

1 APPROPRIATE INFORMATION IS PRINTED FOR EACH LINE, 

prtltbi 



181 



2SI 



4$l 

531 



MOV 

MOV 

MOV 

MOV 

TYPE 

TST 

BMI 

ADD 

CMP 

BEQ 

BR 

MOV 

NOV 

MOV 

MOV 

JSR 

MOV 

MOV 

MOV 

JSR 

MOV 

SWAB 

MOV 

MOV 

MOV 

JSR 

MOV 

TYPE 

TSTB 

BEQ 

MOV 

BR 

MOV 

TYPE 

BR 



TEMP,«(5P) 

TEMP+2i»(SP) 

»LIN00,R2 

«HEADR2fR0 

CR2) 

28 

«10»R2 

CR2)#»"1 

108 

18 

CR2)+,TEMP 

(R2)+»-(5P) 

#4#-(SP) 

«DLADr«(SP} 

PC#02A5C 

(R2)+»-(SP) 

«3#-(5P} 

#DLV,»CSP) 

PC,02A5C 

CR2)+#TEHP+2 

TEMP+2 

TEMP*2#"CSPJ 

»2»»(SP) 

«LIN,-(SP) 

PC|02A5C 

$LIN,R0 

TEMP 

48 

»8i#B0 

58 

•DR,B0 

61 



IPOINTER TO iSTART OF TABLE 

fPRINT HEADER 

ILINE PRESENT? 

I YES • BRANCH 

|MOVE POINTER 10 NEXT ENTRY 

lEND OF TABLE? 

rYES » BRANCH 
I SAVE FLAG WORD 



^CONVERT ADDRESS TO ASCII 



iCONVERT H^iE NO, 



jTYPE FORMATTED LINE 

JSELECTED? 
|N0 • BRANCH 
I SEND STAR 

I SEND DROPPED MSG 
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007376 


012637 


016102 




MOV 


(SPJ-ffTEMP-t-? 




007402 


012637 


1 b 1 00 




MOV 


(SP)-f , rEMP 




007406 


012700 


0l7n5l 


14400 


MOV 


•L3rR0 




007412 


104000 




14450 


TYPE 






007414 


000002 




14500 


RTI 












14550 







^ 
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1720 
11721 
1722 
1723 
1727 
1728 
1729 
1730 
1731 
1732 
1733 
1734 
173S 
1736 
lt37 
173« 
1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
1747 
1741 
1749 
1750 
ItSl 
1752 
1753 
1754 
1755 
1756 
it57 
1758 
1759 
1760 
(3) 
(2) 
1761 
1762 
1763 
1764 
1768 
1769 
1770 
1771 
1772 
1773 
1774 
1775 
C2) 
1776 
1777 
1778 



007416 
007422 
007424 
007430 
007434 
007436 
007442 
007444 
007450 
007456 
007464 
007470 
007474 
007500 
007902 
007506 



162716 
011614 
012746 
027614 
001403 
H62716 
000772 
162^16 
017637 
062737 
005077 
062706 
005337 
003002 
005037 
000002 



007SJ0 
007510 
007514 
007520 



005077 
00533t 
005037 



007524 000002 
007526 
007526 
007526 



007530 005737 

007534 001411 

007536 010346 

007540 013703 

007544 005303 

007546 001376 



016174 

000000 

000010 

000002 
000000 
000004 
006410 



016100 
1^16100 



020670 
007564 



006424 
020670 
007564 



14600 
14650 
14700 
14750 
14950 
15000 
1S020 
15040 
15060 
15080 
15100 
15120 
15130 
15140 
15160 
15180 
15200 
15220 
15240 
15260 
15280 
15300 
15500 
15501 
15502 
15503 
15504 
15505 
15506 
15507 
15508 
15509 



ITXTBAP THIS RqUTinE CATCHES THE INTERRUPTS FRqm 
> DLU'S IN USE 83f THE MECHO fiOUTl^^'E , 

txtrapi sub 

MOV 
MOV 

isi cmp 

BCQ 

ADD 

BR 
281 SUB 

MOV 

ADD 

CliR 

ADO 

DEC 

BGT 

CLB 
38i RTl 



S10r(SP} 

(SPJ,(H4) 

#liIN00 + 4,-(SP) 

90(SP}^(R4} 

2$ 

»10#{SP) 

IS 

»2#CSP) 

P0tSP),TEMp 

»4#TEMp 

9TEMP 

S6fSP 

ENDS 

38 

DELAlfT 



JSUb 10 FRUM UPDATED PC 0'^ STACK 

fPUT BASE VECTOR INTO STACKJ 

jGET POINTER TO LINP TAHL,*-; VECTORS 

icompaRe tarle To stack i 

JSAME m BRANCH 

IPOINT TO NEXT TABLE KNTK< 

jKEEP looking for a WATCH 

|ADDR or DLADR NQw ON STACK 

I GET DLAOR FROM IA8I.t 

fPOiNT TO DVCTXS REGISTER 

fDlSABLE INTERRUPTS 

|SET STACK POINTER TO DRIVER PC 

IHECRIMENT INTERRUPT PENDING COUNT 

I ABORT Tl'^EOUT IF ALL ACCOUNTED FOR 
»RETURN 10 I/O DRIVER 



I STRAP SinGL^^ line TRAnSmiT INTERRUPT CATCHER 

I USED IN CONJUNCTION i^ITH 5ECH0 ROUTINE, 



STRAP I 



007562 





CLR 


iDVCIXS 




DEC 


ENDS 




CLR 


DELAYT 


15515 


RTI 
5000091 
50001$! 






RT5 


PC 


15517 






19518 






15519 






15550 






15750 


1 ♦*»»*«•«»»«* 




15800 


fDEhhttH DELAYS 


For X MiL 


15850 


f 




15900 


>»»»»«»«»»»»« 




15950 






15955 


DELAYMi TST 


DELAYT 


15960 


BEO 


38 




MOV 


R3,-(SP) 
,MEX1T 


16050 


iSl MOV 


TIMER, B3 


16100 


281 DEC 


B3 


16150 


BNE 


28 



DFL*i^T 



iiMS loop time 
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SEQ fri0b2 



1779 


007550 


005337 


007564 


16200 




DEC 


DELAYT 




1780 


007554 


003371 




16250 




BGT 


IS 






007556 


012b03 








MOV 


(SPU,R3 


















.MEXIT 






007560 


000002 




16350 


381 


RTI 














16400 












007962 


000554 




16450 


TiMERI 


»WORD 


554 


SET FOR 1 1/35 - 1 1/40 


1790 
1791 








16500 








SET TO 202 IF 11/03 








16550 
16600 
16650 
16700 
16750 
16800 








251 11/05 - 11/lu 
il4 11/15 - U/2t^ 


007564 


000000 




DCLAYTi 


.WORD 





2127 11/45 FlPuLAH 
1237 U/45 - U/7k5 
755 U/4b MtjS 
DELAY TIME BUFFER 



# # 
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i793 
1794 
1795 
1796 
1797 
1798 
l799 
1S00 
1801 
1B02 
1803 
1804 
1S09 
1006 
1807 
1808 
1809 
1810 
1811 
IBia 
1813 
1814 
1815 
I8i6 
1817 
1811 
1819 
1820 
1821 
1822 
1823 
1824 
1823 
1829 
1830 
1811 
1833 
1833 
1834 
1833 
1836 
1837 
1838 

IS) 
1839 

C7) 

C7) 
1840 

(3) 
1841 
1842 
1843 
1844 
1843 
1846 
1847 



007!>66 
007374 
007600 
007606 
007612 
007616 
007622 
007626 
007b32 
007636 
007640 
007644 
0H7650 
007654 
007660 
007662 
007670 
007674 



007676 
007676 
007700 
007704 
007710 
007710 
007714 
007720 
007724 
007730 
007732 
007736 
007742 
007746 
007750 
007750 
007754 
007760 
007764 
007770 
007774 
007776 



016637 
013745 
066666 
00S366 
042716 
0S2716 
1U676 
003366 
005366 
001411 
006266 
006266 
006266 
016616 
000754 
016666 
062706 
000207 



010046 
00S037 
016600 

142710 
005366 
132037 
005766 
001407 
006337 
006J37 
006337 
000760 

016600 
013710 
011637 
016601^ 
062706 
010016 
013700 



000006 016130 

016150 

000006 000004 



000004 
000004 
000006 



000010 

000010 

000010 

000002 
000010 



010004 
000010 



010004 
000006 

010004 
010004 
010004 



010004 
010004 
000002 

000M10 
010004 



16900 
16950 
17000 
17050 
17100 
171S0 
17200 
17250 
17300 
17330 
17400 
17450 
17500 
17550 
17600 
17650 
17700 
17750 
17800 
17850 
17900 
17950 
18000 
18030 
18100 
18150 
18200 
18250 
18300 
18350 
18400 
18430 
18500 
18700 



,sbttl convlhsion routines 



02A5CI OCTAL 
NUMBER 
BY THE 
BY THE 

02ASCI MoV 
MOV 
ADD 
DEC 
BiC 
OIS 
MOVB 
DEC 
DEC 
BEQ 
ASH 
ASK 
ASR 
MOV 
BP 
MOV 
ADD 
HTS 



TO ASCII CONVERSION HOUTINL " ENTER ^IlH 
TO Bi; CONVERTED ON THE STACK, FOLLOWKU 
NUMBER OF DIGITS TO CONVERT, FOLLOWtD 
STORAGE ADDRESS FOP THE ftSCll STRING, 



) 



111 



6(SP)#SAVE 

SAVE,«(SP) 

6(SP),4CSF) 

4Csp3 

»177770,(SP) 

»60,(8P) 

(SP),?4(SP) 

4CSP) 

6CSP) 

18 

I0(5P) 

10CSPJ 

10CSP) 

I0(apj,csp) 

28 

2tSP),l0CSP) 

#10»5P 

PC 



jGET WORK Copy of NUf«Hfc.K 

jADD COUNT TO POINTER 
IDEC FOR END ADOR 

imASk OUT All ^'JT J Bits 

IMAKE CHAR ASCII 

>PUT ASCII CHAH IN BUFtEH 

>INC POINTER 

JDEC DIGIT COUNT 

IBRANCH IF DONE 

I 

fGET NEXT DIGIT 



|D0 NEXT CHAK FOR COhVERSION 
|PUT RETUHN PC AT TOP OF JU^^K 
IPOINT TO RETURN PC 
fEXIT,,, 



A2BIN Converts input asch to binary numher 

ENTER WITH ADDR Of ASCII STRING ON STACK 
FOLLOWED BY 9 DIGITS TO CONVERT 
FOLLOWED BY ADDR OF WORD FOR ANSWER, 

A2BINi 



MOV 


R0,"C5P) 


CLR 


A25AV 


MOV 


10C5P),H0 


5000281 




BICB 


«370,(R0) 


DEC 


6(SP3 


BISB 


(R0)+,A2SAV 


TST 


6(SP) 


BCO 


5000JS 


ASL 


A2SAV 


ASL 


A2SAV 


ASL 


A2SAV 


BR 


500028 


5000391 




MOV 


4CSP),R0 


MOV 


A2SAV,(H0) 


MOV 


(SP),A2SAV 


MOV 


2CSP),R0 


ADD 


»10»SP 


MOV 


H0f (5P) 


MOV 


A2SAV,R0 



'■"■) 
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1848 
(3J 
(2) 
1849 
18S0 
1851 
1832 
1853 
1854 
1835 
1856 
1837 
1858 
1859 
1860 
1861 
1862 
1863 
1864 
1863 
1866 
1867 
1868 
1869 
1870 
1871 
1872 
1873 
1874 
1875 
1876 
1877 
1878 
1879 
1880 
1881 
1882 
1883 
1884 
1883 
1886 
1887 
1888 

1889 
1890 
1891 
1892 
1893 



010002 
010002 
010002 000207 

010004 000000 



010006 
010012 
010020 
010024 
010030 
010032 
010036 
010042 
010044 
010052 
010056 
010060 
010066 
010070 
010076 
010100 
01016-4 
010112 
010116 
010122 
010126 
010132 
010134 

010140 

010144 

010146 
010154 
010160 
010161 
010162 



012700 
112737 
005037 
021066 
003005 
161066 
105237 
000770 
132737 
105737 
001012 
123727 
001004 
112737 
000402 
105137 
113776 
005266 
062 700 
105037 
105337 
001334 
011666 
062/06 
000207 

023420 

000012 

000 

000 

000 



010146 
000005 
010160 

000004 

000004 

010160 

0000()0 
010161 

010160 

000177 

010161 
010160 
000002 
000002 
010160 
010162 

000004 

0M0004 



001750 
000001 



19600 
19650 
19750 
19850 
19930 
20050 
20150 
20250 
20450 
20500 
20550 
20650 
2075fe' 
20850 
20900 
20950 
21050 
21150 
21250 
21390 
21450 
21550 
21650 
21750 
21850 
21950 
22030 
22150 
22250 
22350 
22400 
22450 
22550 
22650 
22730 
22800 
22825 
22850 
22950 
23050 

23150 
23250 
23300 

33330 



50000SI 
50001$! 

RTS PC 

A25AVI .WORD 



I STORAGE AREA 



fBlN2UA BINARY To DECImAl ASCII CONVERSION ROUTliyfe 

J ENTER WITH NUMBER TO CONVERT ON THE STACK, 

I FOLLOWED BY THE ADDRESS OF THE ASCII BUFFER, 

I 5 DIGITS WILL BE CONVERTED 



MOV 9TaBDA»P0 
MOVB #5, DIGITS 
CLR CNTDA 
CMP (R0J,4CSP) 



jiNiiiALiiiE Table pointer 



381 
4SI 



BGT 

SUB 

INCB 

BR 

BISR 

TSTB 

BNE 

CMP8 

BNE 

MOVB 

BR 

COMB 

MOVB 

INC 

ADO 

CLRB 

DECP 

BNE 

MOV 

ADD 

RTS 



28 

(R0),4(SPJ 

CNTDA 

18 

#60, CNTDA 

FLAGDA 

4S 

CNTDA, «'0 

38 

S177, CNTDA 

48 

FLAGDA 

CNTDA, &2(SP) 

2(SP) 

»2»R0 

CNTDA 

DIGITS 

IS 

(5P),4CSP) 

34, SP 

PC 



TaBDAI »W0Rd 10000. #1000, ,100,, 10, ,1 

CNTDAI 9BYTE 

FLAGDAi 58YTE 

DIGITS! ,BYTE 0,0 
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1898 
1899 
1900 
1901 
1902 
1903 
1904 
1905 
1906 
1907 
1900 
1909 
1910 
1911 
1912 
1913 
1914 
191S 
1916 
1917 
1918 
1919 
1920 
1921 
1922 
1923 
1924 
192S 
1926 
1927 
1921 
1929 
1930 
1931 
1932 
1933 
t3) 
1934 
1939 
1936 
1937 
1938 
1939 
1940 
1941 
1942 
1943 
1^44 
1945 
1946 
1947 
1948 
1949 
1950 
1951 
19S2 



010164 
010170 
010174 
010200 
010204 
010210 
010214 
010220 
010224 
010230 
010234 
010240 
010244 
010250 
010254 
010260 
010264 



012705 
012700 
004737 
012700 
004737 
004737 
012700 
004737 
012700 
004737 
012102 
004737 
004737 
012700 
004737 
012702 
004737 



010352 
010366 
007010 
010424 
007010 
010310 
017730 
007010 
010434 
007010 
000016 
006270 
010310 
01773« 
007010 
000017 
006270 



010270 05276S 020000 

010276 012702 000012 

010302 004737 006270 

010306 000207 



010310 
010314 
010320 
010J24 
010324 
010330 
010332 
010336 
010340 
010342 
010344 
010346 
010350 
010J52 
010354 
010356 
010360 
010362 
010364 



013701 016146 
012702 000040 
162701 000007 

004737 006270 

005202 

020237 010364 

001403 

005301 

001401 

000767 

000207 



000000 

000000 



010200 
000177 



010366 042524 092123 030040 
010424 051501 044503 026511 
010434 050101 026514 026455 



00250 
00300 
00350 
00400 
00450 
00500 
00550 
00600 
00650 

00750 

00850 
00900 



01200 
01250 



01450 
0IS00 
01550 

01650 
01700 
01750 
01800 
01850 
01900 
01950 



02050 
02100 
02150 
02200 
02250 
02J00 
02350 
0240(1 
02450 
02500 
02550 
02600 
02b50 
02700 
02750 
02800 
02850 
029m0 
02950 



9SBTTL LA36 OPTION TESTS 

I 

>TEST0 SECONDAHY CHARACTEF SET OPTION 
I NO MANUAL, iNTEPVENTION HEQUIREU 



»««»»«« 



» » « » 



TeST0I MOV 
MOV 
JSH 

T0II MOV 
JSH 
J5B 
HOV 
JSR 
MOV 
JSH 
MOV 
JSR 
JSP 
MOV 
JSR 
MOV 
JSP 



#T00BLRfR5 

8T0,R0 

PC#MTYPE 

»PR1#R0 

PCfMTlfPE 

PC#CHARS 

»LlrH0 

PCMTYPE 

«SEC,R0 

PCrMTYPE 

«S0,R2 

PC#MECHO 

PCfCHARS 

»L1»R0 

PC#MTyPE 

#SI,R2 

PC#MECH0 



I SUBKi 



CHARSI 



3$l 

T008LK 



BUBi 
,NLIST 
T0| 
PRit 
SEC I 



jStT UP POlNlEH TO MODULE BLOCK 
fSU TEST lU 

|SU PKIMAH3( MSG 

JSEND ALL CHAHACTBRS 

JSU SECONDARY MSG. 

I SEND 50 - SELECT APL SET 

JSEND ALL CHARS AGAIN 

JSEND SI-SELECT ASCII 



BIS 

MOV 
JSR 
BTS 

QUTinE TO 

MOV 
MOV 
SUB 

JSR 
INC 
CMP 
BEQ 
DEC 
BEQ 
BR 
RTS 
.WORD 
r .WORD 
9WORD 
,W0P0 
,WORD 
.WORD 
,WORP 
BEX 
sASClZ 
,ASCIZ 
.ASCIZ 
8 EVEN 



»TD0NE#MrLAGS(R5) jStT DONE AND ATTfeNTiUw f LaGS 

»12fP2 |5U FOB i,r 

PC#MECHO 

PC 

Fill output line w|Th all characters 



WluThfBl 

«40,R2 

«7»Rl 

PCiMEChO 

R2 

P.2»RUB 

38 

Rl 

3S 

2$ 

PC 

6 



ISaVE WlyTri 

fSAVE fSlART ChAB 

jADJUST WIDTH FOR PRl/SEC H5G 



JNEXT CHAR 
I LAST CHAR? 
lYES >• EXIT 
|END OF PAPER? 
|YES - EXIl 
jSEND NEXT 



lITERATION COUNT 
fCTLCNT 



JPASS COUNT 
J STATUS FLAGS 
fPOINTER 
J RETURN PC 



T0I 
177 

»TEST APL/ASCII CHAR SEr»<i5><i 2><1 2> 

/ASCII--/ 

/APL" — -/ 
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1934 










03050 








1955 










03100 


.LIST BEX 




1956 










03150 


; # « » 


# » « * 




1957 










03200 








1958 










03250 


ITESTI 


SELFCTlVt ADDRESSING OPTION 


1959 










03300 




OPERATOR MUST COMPARE TYPEOUT AND SWITCHES ON 


1960 










03350 




TO VERIFY CORRECT OPERATION, 


I96I 










03400 




IF A GROUP OH UNIT SELECT CODE OF LESS THAh 2 


1962 










03450 




IS USED 


MODIFY LOCATION GSEL ACCUHUINGLY, 


1963 










03500 








1964 










03550 


}» « # 


« » » » 




1965 










03600 








1966 


010444 










TESTll 






1967 


010444 


012705 


010722 




03700 




MOV 


«T01BLK,R5 iSET UP POlNitB TO r^O 


1968 


010450 


012700 


010742 




03750 




MOV 


8T1,R0 


1969 


010454 


004737 


007010 








JSH 


PCMTYPfc 


1970 


010460 








03850 


Till 


IDESELECT ALL TERMINALS, THEN TRi TO 


1971 










0390^ 




IPPINT 


ERROR MESSAGES,,,, SHOULD NOT PRIM 


1972 










03950 




jTRANSMIT A BAD SELECT SEQUENCE, THtN TPY TO 


1973 










04000 




fPBINT 


ERROR MESSAGES,,, SHOULD NOT PRINT 


1974 










04050 




fSELECT 


ALL TERMINALS, PRINT GP MtsSAGfe., 


1975 










04100 








1976 


010460 


012765 


010566 


000010 






MOV 


#Tl3,RPCtR5J 


1977 


010466 


013101 


010734 








MOV 


GSEL,R1 


1978 


010472 


012737 


01 1176 


010740 






MOV 


f«TABLl,TlTEMP«.2 


1979 


010S00 


1*12737 


000001 


0107J6 






MOV 


»1,T1TEMP 


C5) 


010506 


000402 










BR 


50002$ 


(4) 


010510 










5000351 






C7J 


010510 


005237 


010736 








INC 


TlTfSMP 


t5) 


010514 










50002$! 






(5) 


010514 


023727 


010736 


000010 






CmP 


T1TENP,»8, 


(7) 


010S22 


003014 










BGT 


500048 


1980 


010524 


012700 


017730 








MOV 


»LI,P0 


1981 


010530 


004737 


007010 








JSR 


PCMTYPE 


1982 


010534 


017700 


000200 








MOV 


f>TlTeMp + 2,P0 


1983 


010540 


004737 


007010 








JSR 


PCMTYPE 


1984 


010944 


062737 


000002 


010740 






ADD 


#2,TlTEMP+2 


1985 


010S32 


000756 










BR 


50003$ 


(3) 


010554 










50004$! 






1986 










04650 




1 TRAnS 


MIT SELECT Codes to all terminals 


1987 










04700 




1 FOLLOWED BY ASCII EOUIV OF CODE, 


1988 


010554 








04750 


T12I 






(4) 


010554 


012765 


010460 


000010 






MOV 


#Tn#RPCCR5) 


1989 


010562 


013701 


010734 








MOV 


GSEL,Rl 


1990 


010566 








04850 


TlJl 


jOUTPUT 


ALL CODES AND ACCII EQUIVELANTS 


l99l 


010S66 










50005^1 






1992 


010566 


020127 


000200 








CMP 


Rli«200 


C5) 


010572 


001420 










BEQ 


50006$ 


H93 


010574 


012700 


020421 








MOV 


#SCODErR0 


1994 


010600 


110160 


00000J 








movb 


Hli3CR0) 


1995 


010604 


004737 


007010 








JSP 


PCMTYPE 


1996 


010610 


112702 


000002 








MOVB 


#STX,R2 


1997 


010614 


004737 


006270 








JSP 


PCMECHO 


1998 










05250 




1 NOW CONVERT SELECT CODE 10 ASCII FOR OUTPUT 


1999 


010620 


004737 


010662 








JSB 


PCCON 


2000 


010624 


004737 


007010 








JSP 


PCMTYPE 



««*»«» 
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2002 
(3) 

2mi 

2004 
C4J 

3(906 
21007 
2008 
(3) 
C3) 
2009 
2010 
20tl 
20i2 
3013 
30H 
2015 
2ul6 
2017 
20li 
2019 
13) 
(3} 
2020 
3021 
3022 
2033 
2034 
203S 
3036 
3H37 
2038 
2039 
3030 
3031 
3032 
3033 
3034 
3033 
2036 
2037 
2038 
2039 
3040 
3041 
2043 
3043 
2044 
2049 
2046 
2047 
2048 
3049 
3030 



0i0t)30 
0H?b32 
010(334 

910634 
(§10634 
ai0643 
310630 
t}106S4 
ai0660 
910660 
410660 



010663 
010663 
010666 
010672 
010676 
010702 
010706 
010712 
010716 
010716 
010716 

010720 
010722 
010734 
010736 
010730 
010732 
010734 
010736 

010742 
011005 
011045 
011100 
011137 

011176 



005301 
000759 



01276S 
052769 
012700 
004737 



005037 
110137 
013746 
012t46 
012746 
004737 
012700 



005015 
105 
116 

043523 
101 

011176 

030416 



011316 

011216 010337 

011222 012702 



010460 

0200410 

020411 
007010 



010736 
010736 
010736 
00000J 
011520 
007566 
011320 



052012 
051122 
020117 
042514 
046114 



03500 
05550 



000010 

000004 



011005 011137 



06300 
06350 
06400 
06450 
06500 
06550 
06600 
06650 



051505 
051117 
042523 

052103 



06750 
06S00 
06850 
06900 
06950 
052040 07000 
07050 
07100 
07150 
07200 
07350 
07300 
07350 
07400 
07450 
07500 
07550 
07600 
07650 



Kl 
50005S 



J TURN ALL TERMINALS ON AND KXIT TfciST 



MOV 
BIS 
MOV 
J5R 



»T11,RPC(R5) 
»TU0NE,MrLAGS(R5} 
IIALLON|R0 
PCfMTYPE 



) 



5000081 
50001$! 



J THIS ROUTINE CONVERTS THE SELECT CODE 
t TO ASCII FOR OUTPUT IN OCTALC MESSAGE, 



CLR 

MOVB 

MOV 

MOV 

MOV 

gsR 

MOV 



50000SI 
5000181 



GSCLi 
TlTEMPl 



RT5 

,W0RD 
.WORD 
.WORD 
,MORD 
.WORD 
.WORD 
.WORD 
.WORD 



TlTEMP 

H1»T1TEMP 

TlTEMP, -(SP) 

»3#-(SP) 

#0CTALC#*(5P) 

PC#02ASC 

#OCTALC#R0 



NLIST BEX 

.ASCIZ 



Til 

20 
0#0 



I ITERATION COUNT 

ICTLCNT 

I PASS COUN'i 

ISTATUS FLAGS 

I POINTER 

fRETURN PC 

IfSTART OF SELECT CODES 



E9I 
Ei2l 
GPI 
E10I 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.EVEN 



<15><13><12>/TEST 1 SELECilVC AODRESSlNU/< j s><i 2><i 2> 
/ERROR » THIS SHOULD NOT PRINT »/ 
/NO SELECT CHARACTER SENT/<15><12> 
/SELECT CHARACTERS RECOGNIZED s/ 
/ALL TERMINALS SHOULD BE 0FF/<ib><12> 



TABLlI .WORD ALL(iFF,E9#El0,NSELCiE9,El2iALLOr),GP 



IfGETAf^S THIS RqUTinE SETS UP AmD READS THK A,^5k»fcRBACK 
I MESSAGE FROM THE TERMINAL UNDER TEST, 



011304 
0!3144 



MOV 

MOV 



H3r2$ 

#T220,R2 
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3031 


011226 


004737 


007124 


2052 


011232 


012702 


000005 


3053 


011236 


004737 


006654 


2034 


011343 






14) 


011242 


013702 


011304 


3055 


011246 


004737 


007024 


2036 


011353 


032765 


100000 000004 


(9) 


011260 


001405 




2057 


011262 


043765 


100000 000004 


3038 


011270 


105011 




2059 


011272 


000403 




C3) 


011274 






2060 


011274 


103237 


013212 


2061 


011J00 


000760 




2062 


011J02 






2063 


011J02 






(3) 


011302 






C2) 


011302 


000207 




2064 


011304 


000000 




2065 








2066 








2067 








2068 








2069 








2070 








2071 








2072 








2073 


011J06 






2074 








2075 


011306 


012700 


020421 


2076 


011312 


004737 


0075 10 


2077 


011316 


012702 


000002 


20 78 


011322 


004737 


006654 


2079 


011J26 


012700 


011472 


2080 


0J1332 


004737 


007110 


2081 


011336 


013746 


013212 


2082 


011342 






C4) 


011342 


003046 




2083 


011344 


112116 




2084 


0!1346 


012746 


000003 


2085 


0UJS2 


012746 


011520 


2086 


011356 


004737 


007566 


2087 


011362 


012700 


011520 


2»8B 


011366 


004737 


007U0 


2089 


011372 


10S337 


013212 


3090 


011376 


105737 


013212 


19) 


011402 


003402 




2091 


011404 


000756 




2092 


011406 


000426 




(3) 


011410 






3093 


011410 


012700 


017730 


3094 


011414 


0047 37 


007U0 


2095 


011420 


012700 


000023 


3096 


011424 






2097 


0U424 


012702 


000040 


2098 


011430 


004737 


006654 



08500 
08550 
08600 
08650 
0870B 
08750 
08800 
08850 
08900 

09000 



09700 



JSR 
MOV 
JSR 

MOV 

JSR 

BIT 

BEQ 

BIC 

CLRB 

BR 

InCB 
BR 



50003SJ 
50000$! 
500018! 



PC»BEADS 

»ENU,R2 

PCfSECHO 

28#R2 

PCREADlO 

»MEPR,MFLAGS(R5) 

50002$ 

»MfcRR,MFLAGS(R5) 

CRD 

500038 

T2CNTI 
18 



.WORD 



flVPANS THIS ROUTINE PRINTS THE AnSwERHACK MESSAGt. 
> IN OCTAL FORMAT! , AND ASCII tORMATT, 



30004S1 



MOV 
JSR 
MOV 
JSR 
MOV 
JSR 
MOV 

CLR 

MOVB 

MOV 

MOV 

JSR 

MOV 

JSR 

DECB 

TSTB 

BLE 

BR 

BR 

hOV 
JSR 
MOV 

MOV 
JSR 



»SCUDF#R0 

PC, TYPES 

#5IX,R2 

PCrSECHO 

#ANSHDR,R0 

PC, TYPES 

T2CNTl#»C5PJ 

»(SP) 

(RD^.OP) 

»3#-(SP) 

UOCTALCfOP) 

PC,02A5C 

»OCTALC,R0 

PC, TYPES 

T2CNTI 

T2CNT1 

500028 

18 

500038 

«L1,R0 
PC, TYPES 
»J9,,R0 

#40, R2 
PCSECHO 
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2M99 


011434 


005300 










DEC 


B0 


2100 


011436 


005700 










TST 


H0 


(S) 


011440 


001401 










BEO 


50005$ 


2101 


011442 


000770 










BR 


50004$ 


(J) 


011444 










50«05Si 






2102 


011444 


012700 


013220 








MOV 


#T2BUF,BW 


2103 


§11450 


004737 


007110 








JSB 


PC»T)iPES 


2104 


011454 


012700 


017730 








MOV 


#L1#R0 


2I0S 


011460 


«04737 


0W7UH 








JSK 


PC»TYPES 


2106 


011464 










5000311 






2107 


011464 


012637 


013212 








MOV 


CSPJ4,T2C^T1 


2108 


011470 










50000$! 






C3J 


011470 










5000181 






(2) 


01H70 


000207 










PIS 


PC 


2109 


011472 


005015 


047101 


053523 


10100 


ANSHDKi 


,ftSCIZ 


<15><12>/ANSWEKBACK REC 


2110 


011920 


030060 


027460 


000 


10150 


OCTALCl 


.ASCIZ 


*000/» 


2111 




011526 






10200 




,KVEN 




2112 










10250 









llii. 
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.^ 



^ 



■ 



2114 
2113 
2116 
2117 
2118 
2119 
2120 
2121 
2122 
2123 
2124 
2123 
2126 
2127 
2128 
2129 
2130 
2131 

(9) 
2132 
2133 
2134 
2135 
2136 
2137 
2138 

(7) 

(7) 

(7) 
2139 
2140 
2141 
2142 

(5) 
2143 
2144 
2145 
2146 
2147 
2148 
2149 
2130 
2151 
2132 
2153 
2154 

19J 
2195 
2136 
2157 
21S8 

(3) 
2139 
2160 
2161 

C3) 



011526 
011526 
011532 
011536 
011542 
011546 



012700 
012701 
012705 

004737 



011546 105737 
011552 001065 
011954 012701 



011560 
011566 
011574 
011600 
011604 
011610 
011616 
011624 
011624 
011632 



011634 
011642 
011646 
011652 
011656 
011662 
011666 
011672 
011674 
011702 
011710 
011716 
011720 
011720 
011724 
011724 
011726 



013737 
013^7 
006337 
006337 
fe'06337 
062737 
112777 

023727 
001435 



113737 
012700 
004737 
012703 
105037 
004737 
105737 
001412 
113777 
113737 
012737 
000402 

103237 

000717 



013326 
01322H 
013176 

007010 



016134 

013220 



010734 
01616!^ 
013216 
013216 
013216 
016176 
000200 



013214 
013216 



013216 
001372 



013214 000200 



013214 020424 

020421 

007110 

000310 

013212 

011216 

013212 

013214 001314 
013214 016134 
0M0200 013214 



10350 
10400 
10450 
10500 
10950 
10600 
10650 
10700 
10750 

10850 
10900 
10950 

U050 

iiiwe 

11150 



11300 
11350 
11400 
11450 



11800 
11850 
11900 
11950 

12000 



»»»»«» 



» « « # 



« « » # 



AUTO ANSWER BACK OPTiON 

SINGLE LINE TESTS REOUlKL f«ANUAL iNTtHVfcivTlOb 



»««««« 



«»»»»# 



,tNABL 
TEST2I 



LSH 



50005$! 
S0006Si 
50004g| 



ISET UP STACK-2 AS If.Puf BUI-ffcH 

IS6:t up pQinik:H TO Munubfc biuck 



MOV #T2»R0 

MOV »T2BUF,R1 

MOV »T02faLl<»R5 

JSB PCfMTYPE 

J IF THi LINE UhDER TEST HASN'T BEfciv SIZED 

»FOR THE ANSWERBACK OPTION 00 SO Myw, 

I 

tstb dloth 

BNE 50002S 

MOV «T2BUF,Nl 

fCHECK DLOIH ENTRY OF LINE TABLE FUP CURRFt^T 

iLINE, IF LOBYTC IS NO SIZE HAS BEEN DOf^E, 

> IF a 200 LINE SIZED HUT "0 ANSWfcP HECVD, 

I 

MOV GSELiT2TEMP 

MOV ONi,iN,T2TeMP + 2 

ASL T2TEMF+2 

ASL T2TEMP42 

ASL T2TEMP+2 

AOO #LlN00*b,T2TEMP*2 

MOVB »200,»T2TE^iP+2 

CmP T2XEMP»ff200 

BEQ 50004$ 

I SEND EACH POSSABLE SELECT CODE TO THE 

»TErMINAL# then REQUEST AN ANSWERBACK, 

>IF An Answer is reviewed store the select 

JCODE IN DLOTH ENTRY OF THE LINE TABLE, 

fOTHERWISE SET DLOTH TO 200t 

MOVB T2TEMP,SCODE4-3 

MOV #SCf»DE,P0 

JSR PC#TSfPES 

MOV #200. #R3 

CLR8 T2CNT1 

JSR PC#GETAN5 

TSTB T2CNT1 

BEQ 50003$ 

MOVB T2TEMP,il21EMP4.2 

MOVB T2TEMP, DLOTH 

MOV »200#t2tEMP 

BR 500066 

INCB T2TEMP 

BR 500033 



♦ f 
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2163 


011726 










50002SI 




2163 










12600 








2164 


011726 








12650 


T23I 


IIF THE LIWE HAS BEEN SlZED» BUT NO 


2l6S 










12700 




ISELECT CODE HAS BEEN MAPPED NOTIFY THE 


2166 










12750 




fOPERATOR . 


2167 










12800 




1 




2168 


011726 


123727 


016134 


000200 






cmpb 


DLOTHf #20i^ 


C9J 


011734 


001fc?13 










BNE 


500078 


2169 










12900 




1 ERROR #0 NO ANSWERBACK FROM TERMINAL. 


2170 










12950 




)««#»#»»««#«««« 


217! 










13000 




1 




2172 


011736 


012765 


01253H 


000010 






MOV 


«T24#RPcCR5) 


2173 


011744 


052765 


100000 


000004 






815 


#HERR|MFLAGS(R5J 


2174 


011752 


105069 


000004 








CLRB 


MFLAGSCRS) 


2173 


0U7S6 


012765 


013356 


000006 






MOV 


#El4#P0INT(R5) 


2176 


011764 


000207 






13230 




RTS 


PC 


2177 


011766 


000463 










BR 


300108 


(3) 


0U770 










5000781 






2178 


011770 


012701 


013220 








MOV 


IT2BUFfRl 


2179 










13400 




|GET THE SELECT CODE FROM THE LINE TABLE & 


2180 
2181 
2182 










13450 
13500 




JREQUEST AN ANSWERBACK, 


011774 


113737 


016134 


020424 




1 

MOVb 


DL0TH»SC0DE*3 


2183 


013002 


013700 


020421 








MOV 


#SCODE,R0 


2184 


012006 


004737 


007110 








JSP 


PC#TYPE5 


3183 


013012 


013703 


000310 








MOV 


9200arR3 


3186 


012016 


105037 


f('l3212 








CLRB 


I2CNTI 


2187 


013023 


004737 


011216 








JSR 


PC#GETAN5 


218S 










13850 




ICHECK 


FOR ANY RESPONSE FROM TERMIrtftL 


3189 










13900 




t 




3190 


012036 


105737 


013212 








TSTb 


T2CNT1 


C9J 


012032 


001015 










BNE 


500US 


2l9t 










14000 




1 ERROR 


#1 NO ANSWERBACK RECXK^ED. 


3193 










14050 




f •»»»#»«•»#»«»« 


2193 










14100 


1 






3194 


012034 


013765 


012530 


000010 






MOV 


»T24,RPC(R5J 


2195 


012042 


053765 


100000 


000004 






BIS 


»MEPR»MFLAGS(R5J 


2l96 


012050 


113765 


000001 


000004 






MOVB 


8l#MFLAG5(R5) 


2197 


013056 


013765 


013356 


000006 






MOV 


#El4ri'OINt(R5} 


2198 


012064 


000424 










BR 


500128 


C3J 


013066 










b00US| 






2199 


013066 


012763 


012140 


000010 






MOV 


«T23,RPC(R5J 


2200 










14450 




JTEST LENGTH OF ANSWERBACK SHOULD BE 20 MAX. 


2201 










14500 




1 




2202 


013074 


123737 


013212 


000024 






CMPb 


T2CNTl»#20t 


C9) 


012102 


003411 










BLE 


500138 


3203 










14600 




1 ERROR 


#2 ANSWERBACK OVER 2n CHARS LUNG 


3204 










14650 




1 »*»»•»■»»«»«»» 


2209 










14700 








2206 


013104 


033765 


100000 


000004 






BIS 


»MEHR#MFLAGS(R5J 


2307 


013112 


113765 


000002 


000004 






MOVB 


#2»MrLAGS(RS} 


3208 


012130 


013763 


013404 


000006 






MOV 


#E15,POINt(R5) 


2209 


012126 










50013SI 






2210 


012126 


013701 


013220 








MOV 


»T2BUr»Hl 


22U 


012132 


004737 


011306 








JSR 


PC#TYPANS 


2212 


012136 










5001281 







■N 
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5EU Mw72 



2313 

2214 
2215 
2216 
2217 
2318 
3219 
2220 
2221 
2232 
2223 
2224 
2225 

C5) 
2226 
2227 
3228 

C3) 
3229 
2230 
2231 
2232 
3233 
2234 
2235 
2236 
2237 
2238 
2239 
2240 
2241 
2242 
2243 
2244 
2245 

C9) 
2246 
2247 
2248 
2249 
2250 
2251 
2232 

C3J 
2253 
2354 
2253 

19) 
3236 
3237 
2238 
2259 
3260 
2361 
3363 
3263 



012136 
012136 
012140 



013140 013763 013206 0000I0 

013145 113737 013212 013213 

012154 012701 013220 

012160 012700 020574 
013164 



013164 
013170 
t<l3l72 
012174 
012200 
013203 
013202 

012306 



105737 
001404 
U2120 
105337 
000771 



013212 



013212 



105037 013210 



012206 012701 013220 
013212 105037 013212 



012216 012700 020421 

012222 012703 000310 

012226 004737 011216 

012232 105237 013210 



012236 105737 013212 
012242 001012 



012244 052765 100000 000004 

013252 012H5 013356 000006 

012260 113765 00003m 000004 

012266 000500 

012270 

012270 10S011 

012272 133737 013212 013213 

013300 001416 

012302 012701 013220 

012306 004737 007110 



012313 032765 100000 000004 
013130 112763 000031 000004 
012326 012763 013336 000006 



15150 
15300 
15350 
15300 
15350 



15950 

160MV;! 
16050 



162k^0 
16250 



16500 
16650 
16600 
16650 



16750 
16800 
16850 



17350 
17400 
17450 



5001081 
T23I 



RTS PC 

fSAVE COPIES OF THE ANSWERBACK AND IT'S LENGlH 
fTHEN READ ANSWERBACKS 10 TIMES MORE, 
fVEPIFX iHESf ARE ALL THE SAME, 



MOV 
MOVB 
MOV 
MOV 



»T23A#RPCCR6) 
T2CNT1,T2CNT2 
«I2BUF,Hl 
»STACK3iR0 



T23AI 



ICOPY ANSWERBACK TO STACK3 FOR COMPARlSOwS 

TSTB T2CNT1 

BEQ 500158 

MOVB (R1)4,(R0)+ 

DECR T2CNTI 

BR 500148 

CLRB T2SAV1 

l«ESET INPUT BUFFER POInTkP AND iiEHO COHNTtR 



'^ 



MOV »T2BUF,Fl 

CLRB T2CNT1 
JSEND SELECT SEQUENCE TO TERMINAL 
jTHEN REAH ANSWER 

MOV #SCODE,P0 

MOV #200, »B3 

JSR PCGETANS 

INCB I2SAV1 

I IF NO ANSWER NOTIFY OPERATOR 

I IF OLD ANSWER DIFFERENT FROM NEw ANSWER 

f NOTIFY OPERATOR, 



I 



NO ANSWERBACK DURING TEN REAU LUUP 



TSTB T2CNT1 
BNE 500168 
} ERROR «30 

f 

BIS #MERR»MFLAGStR5J 

MOV #E14,P0INT(R5) 

MOVB »30»MFLAGS(R5) 

BR 500178 

CLRB (RU 

ICOMPARE LENGTHS Of ANSWERS 

CMPB T2CNTl»T2CNT2 

BEQ 500208 

MOV #T2BUF#R1 

JSR PC » TYPES 

JERROR #31 INCQNSISTANT ANSWERBACKS 

I 

BIS »MERR»MFLAGS(R5) 

M0V8 S31#MrLAGS(R5) 

MOV SEJ4#P0INT(R5) 
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) 



2264 

(3) 

3265 

2266 

2267 

2268 

2269 

2270 

2271 

2272 

C5) 

(4) 

(7J 

C5J 

<5J 

C7) 

2273 

C9) 

2274 

227S 

2276 

2277 

2278 

2279 

2210 

3281 

3282 

3283 

2284 

(3) 

2385 

3286 

2287 

2268 

2289 

3390 

3391 

C9) 

3292 

2293 

2294 

3295 

C9) 

2296 

2297 

2298 

(3) 

3399 

3300 

2301 

2303 

3303 

3304 

2105 

3306 

3307 



012J34 
013336 
013336 
012343 



013346 
013J52 
012J60 
012364 
013372 
013374 
012J74 
013400 
01340^ 
013406 
013410 
012412 



012701 
012700 



013220 
020974 



005037 013214 

113737 013212 

005037 013216 

012737 000001 
000402 

003237 013216 

023737 013216 

003024 
122031 
001421 



013414 
013423 
013490 



053765 
11376S 
012763 
012436 012701 
013442 113737 
013450 013737 
013456 

013456 000746 
013460 



013460 
013464 
013470 
013470 
013470 
013476 
013900 
013503 



3502 
3510 
3512 
3520 
3S33 
3534 
3524 
2530 



012701 
004737 



032765 

001401 
000207 



123727 
001005 
0127S5 
000207 



100000 
000032 
013575 
013220 
013213 
013214 



013220 
011306 



013212 
0J3216 



100000 000004 



000010 
000010 



000137 012206 



17800 
17850 



013214 
013216 



012510 013701 013220 
012534 105037 013212 
012540 012702 



1»150 
18200 
18250 



18700 
18750 



19050 
19150 



19300 



19400 

19500 
19550 
19600 
19650 



BR 



50025SI 
5002431 



50027$! 
50030SI 



50021$ 



50023St 
5002281 



MOV 9T2BUF»H1 

MOV »STACi<3»R0 

ICOMPARE MASSAGES FOH SAME DATA 

I 

CLB T2TKMP 

MOVB T2CMTl#T2TEMP 

CLR T2TEHP+2 

MOV #l#T2TEMP+2 

BP 50022s 



INC 

CmP 
BGT 
CMPB 
BEQ 



pERPOP #32 

I 



T2TEMP*2 

1:2TEmP+2»T2TEmP 
500248 
CR0)*,(RlJf 
50025S 



INCONSISTANT ANSwfcHBACKS 



BIS 

MOVB 

MOV 

MOV 

MOVB 

MOV 

BR 



»MERR#MFLAGSCP5J 

«32rMFLAGS(R57 

»E21,P0INT(R5J 

»T2BUF»R1 

T2CNT2#T2CNTl 

l2TEMP,T2TEMP+2 

50023S 



5002181 
50017SI 



jfcho Answer to terminal in ascu anD 

lOCTAL FOPMAITS, 
MOV «T2BUF,Bl 

JSR PCTYPANS 



Bit »merr»mflag5CR5) 

BF,Q 50026$ 
RTS PC 

ICHECK FOR TfcN ITERATIONS 



CMPB 

BNE 

MOV 

RTS 

BR 

JMP 



T2SAVlf #10 

500278 

«IT24#RPC(R5J 

PC 

500308 

T23A 



IRESTORF POINTERS 6 TEST THE BROADCAST (BEL) 

fWON'T ACTIVATE THE AUTOANSWER, 

» 

MOV #T28UF#R1 

CLRB T2CNT1 

MOV «STX,R2 
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SEU (^0/4 



2308 


013944 


004737 


006654 








JSR 


PCfSECHO 


2309 


012^50 


012700 


020421 








MOV 


»SCODE#R0 


2310 


013954 


112737 


000007 


020424 






MOVB 


#7»SC00fc+i 


2311 


013562 


004737 


007110 








JSR 


PCTYPES 


2313 


013966 


013703 


000310 








MOV 


1200, |R3 


2313 


013973 


004737 


011216 








JSR 


PCf getans 


3314 


013576 


105737 


013212 








T8TB 


T2CNT1 


(9) 


013602 


001415 










BEQ 


500318 


3315 










20050 




»ERPOR #4 RECVD ANSWERBACK FROM BNOAUCAST 


3316 










20100 




1 «»«#»■»«■«»*»» 


2317 










20150 




1 




2318 


012604 


053765 


100000 


000004 






BIS 


#MERR#MFLAGSCHSJ 


2319 


012612 


113765 


000004 


000004 






MOVB 


«4#MFLAGSCR5) 


2320 


012620 


013765 


013632 


000006 






MOV 


»E22»POlNt(P53 


2321 


012626 


013765 


012636 


000010 






MOV 


#T25»RPC(R5J 


2322 


013634 


000207 






20400 




RTS 


PC 


2333 


012636 










5003181 






2324 
2329 


012636 








20500 


T25I 


IIF IN MULTI LINE MODE SETUP NEXT LINE POlNTfcl 










209S0 




>IF SINGLE LINE MODE TEST KK^BOARU STUFh . 


2336 










20600 




; 




3337 


012636 


032737 


000040 


001364 






BIT 


»mulxi#pcflag 


(9) 


012644 


001424 










BEQ 


500326 


2338 


012646 


004737 


002110 








JSR 


PC#L1NM0N 


2329 


012652 


012765 


012734 


000010 






MOV 


«T25A,RPC(R5) 


2330 


012660 


032737 


000400 


001364 






BIT 


iLDONEiPCFLAG 


C9) 


012666 


001406 










BEQ 


500338 


2331 


012670 


043737 


000400 


001364 






BIC 


»LDONe»PCFLAG 


2332 


013676 


052769 


020000 


000004 






BIS 


»TD0NC,MFLAGS(H5) 


2333 


013704 










S0033SI 






2334 


013704 


012765 


011546 


000010 






MOV 


»T21»RPC(R51 


2335 


013712 


000207 






21000 




RTS 


PC 


2336 


013714 


000912 










BP 


500348 


C3) 


013716 










5003281 






2337 


012716 


113737 


016134 


020424 






MOVB 


dloth»scooe+3 


2338 


012724 


012700 


020421 








MOV 


»SCODE»R0 


2339 


012730 


004737 


007110 








JSR 


PCiTXPfcS 


2340 


012734 








21100 


T25AI 






(4) 


012734 


012765 


0J3034 


000010 






MOV 


»T26#RPC(R5J 


2341 


012742 


012701 


013220 








MOV 


#T2BUr,Rl 


2342 


012746 


012702 


000002 








MOV 


»STX,R2 


2343 


012752 


004737 


006654 








JSR 


PC#5ECH0 


2344 










21300 




|5ET UP TO TEST HERE-IS KEX SINGLE LINE ONhi 


2349 










21350 




1 




2346 


012756 


012700 


013252 








MOV 


#HIf R0 


2347 


012762 


004737 


007110 








JSR 


PC#TyPES 


2348 


012766 


105037 


013212 








CLRP 


T2CNT1 


2349 


012772 


012703 


007640 








MOV 


#4000. yR3 


2390 










21600 




IREAD 


ANSWERBACK 


2351 


012776 


004737 


011216 








JSR 


PCfGETANS 


2353 


013002 


105737 


013212 








TSTB 


T2CNII 


t9) 


013006 


001012 










BNE 


500358 


2353 
3354 










21750 
21800 




lERROR »5 NO ANSWERBACK FROM HERE-XS KEY 


3395 










31SS0 




1 




33S6 


013010 


032765 


100000 


000004 






BIS 


tMERRiMFLAGS(R5) 


2337 


013016 


112769 


000003 


000004 






MOVB 


#3,MFLAG5CR5) 
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2J38 
2i39 
2360 
2361 
2362 
3363 
3364 
3369 
2366 
2367 
2369 
3169 
2370 
2371 
3372 
2373 
C9J 
2374 
2375 
2376 
2377 
2378 
3379 
2380 
2381 
C3) 
2382 
3383 
3384 
2383 
3386 
3187 
3388 
3389 
3390 
3391 
3393 
3393 
2394 
3393 
3396 
3397 
3398 
U) 
(3) 
3399 
2400 
3401 
2403 
2403 
2404 
3409 
3406 
3407 
2408 
3409 



013M24 012765 
013K932 000207 
013034 



013034 
013042 
013046 
013053 
0130S6 
013062 
013066 
013072 
013076 



013100 
013106 
013114 
013123 
013134 
013136 
013136 
013134 
013142 
013143 
013142 



012763 
012701 
013700 
012703 
103037 
004737 
004737 
10S737 
001013 



03376S 
112US 
M12763 
000207 



032765 
012763 



013144 117721 

013130 032737 

013156 012777 

013164 003037 
013170 



013172 
013172 
013172 000207 



013174 
013176 
013200 
013302 
013204 
013206 
013210 
013212 
013213 



011S46 

000000 
000 
000 



013475 000006 



011726 
013220 
013303 
007640 
013212 
007U0 
011216 
013212 



100000 
000006 
013340 



020000 
011726 



002766 
004000 
000|0| 
007S64 



000004 
000004 
000006 



000004 
000010 



001364 
fcJ«2744 



22050 

22150 
22200 
23250 

22300 
22350 



22800 
22850 
22900 



23400 
23450 
23500 
23550 
33600 
33650 
23700 
23750 
2380S5 
23850 
23900 
23950 



24050 
24100 
24150 
24200 
24250 
24300 
24350 
24400 
24450 
24500 
24550 



MOV 
KTS 



#E17#PQINT(R5) 

PC 



ITEST CTL-E FUNCTION 

ISET UP TO TEST CTL«E FUNClION 

I 

MOV «T22iBPc(R5) 

MOV #T2BUr,Rl 

MOV »CE,R0 

MOV •4000«»K3 

CLBB T2CNT1 

JSR PC, TYPES 

USR PC#GETAN5 

TSTB T2CNT1 

BNE 500368 

I ERROR #6 NO ANSWERBACK FROM CTL-E 

)««#»#««'»#«« 

f 



KEY 



50036SI 



BIS 

MOVB 

MOV 

RTS 

BR 

BiS 

MOV 



50037SI 
50034*1 



RTS 



»MERP,MFiiAGS(R5J 

»6#MFLAGSCR5) 

I»E18,P0INT(RS) 

PC 

500378 

#TD0NE»mFi,AgSCR5) 
#T22»RPCCR5J 



PC 



|THiS ROUTINE IS THE KEYBOARD INTERRUPT HAnDlER 
|FOR TESTS »1 AND »2 



T220I 



MOVb 

BIS 

MOV 

CLR 

RTI 

3000081 
5000ISI 

RTS 

,osabl lsb 

.BYTE 

T02BLKI .WORD 

.WORD 

.WORD 

.WORD 

.WORD 

T2SAV1I .WORD 

T2CNTli .BYTE 

T2CNT2i .BYTE 



iDVcRxB»CRU + 
»DATAIN,PCFLAG 
#101,PDLADR 
DELAYT 



ISIORE chaR IW puinTek 

ISET DATA-1^J FLAG 
jREENABLE THE RECVH 
»ABORT THE TIMEOUT 



jITERATION COUNTS 

ICTLCNT 

pPASS COUNT 

I STATUS FLAGS 

IPOINTER 

IRETURN PC 
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3410 


013214 


000000 


000000 




24600 


T2rEMPl 


1 .WORD 


2411 


013230 


000000 


000000 


000000 


24605 


T2BUFI 


.WORD 




013236 


000000 


000000 


000000 










013234 


000000 


000000 


000000 










013242 


000000 


0H0000 


000000 










013250 


000000 






















24650 
















24700 


.ML 1ST 


BEX 




013292 


005015 


042504 


051120 


2475k 


HIl 


.ASCIZ 




013305 


015 


052012 


050131 


2480M 


CEl 


.ASCIZ 












24650 








013326 


005015 


052012 


051505 


24900 


T2I 


•aSciz 




013356 


047516 


040440 


051516 


24950 


E14I 


.ASCIE 




013404 


047101 


041133 


041501 


25000 


El5l 


.ASCIZ 




013440 


047101 


041123 


041501 


25050 


E16I 


.ASCXZ 




4!13475 


110 


051105 


020105 


25100 


E17I 


.ASCIZ 




013340 


032lfe!3 


026314 


02^'l«5 


2515^5 


Eiei 


.ASCIZ 




013575 


101 


051516 


042527 


25200 


E21t 


.ASCZZ 




013632 


047101 


041123 


041501 


25250 


E22I 


.ASCjZ 












25300 




.EVEN 












25350 


.LIST BEX 



0»0 

0»0f0#0#0l070>0|0f0,e 



I bU^FEH FOH ANSukHbACK 



<15><12>/DEPRES5 HfcHE IS — Kfc.Y/<i5><i2> 
<l5><l2>/TYFfc C0NTL»E/<ib><l2> 

<15><12><12>/TE5T 2 A"To ANSweH/<i b><l 2> 
/NO ANSWERBACK HECVD/<15>< i2> 
/ANSBACK MSG OVER 20 CHAR5/<i 5><l ?> 
/AN5BACK MSG CONTAINED NULL/<15><12> 
/HERE IS KEi PirJN'T TXMIT AN8BACK/< j J>><1 2> 
/CTL-E niON'T TXMIT ANSBAC^/< t 5><l 2> 
/ANSWERbACKS DIDN'T COMpAHE/< I 5>< 1 2> 
/AnSBACk RECVD fRom BROADCAST SEj,tCT/<l -SX l '/> 
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243S 








25450 


2429 








25500 


2430 








25550 


2431 








2S600 


2432 








2S650 


2433 








23700 


2434 








2S750 


243S 








25800 


2436 








23830 


2417 


013700 


012700 


014376 


23900 


2438 


013704 


004717 


007010 




2439 


01371^1 


012705 


014J42 


26000 


2440 


013714 


032737 


000040 001364 


26050 


2441 


013722 


001424 




3610? 


2442 


013724 


012701 


0U0102 


26150 


2443 


01J730 


113702 


016167 


26200 


2444 


013734 


004737 


006270 




2445 


013740 


012702 


000006 


26300 


244& 


013744 


004737 


006270 




2447 


013750 


005J01 




26400 


2441 


013752 


001372 




26450 


2449 


013754 


012700 


014427 


26300 


2430 


013760 


004737 


007010 




2451 


013764 


052HS 


020000 000004 


26600 


3493 








36650 


2453 


013772 


000207 




36700 


3434 








36750 


245S 








36800 


3436 








36850 


2457 


013774 


01276S 


013774 000010 


36900 


2458 


014002 


012737 


01461*1 W14356 


26950 


3459 


014010 


012737 


014J62 014JS4 


37000 


2460 


014016 


012700 


014443 


27050 


2461 


014022 


004737 


007110 


27100 


2462 


014026 


013700 


014646 


27150 


2463 


014032 


U2037 


014564 


37300 


2464 


014036 


113037 


014S6S 


37350 


2465 


014042 


111037 


014566 


27300 


3466 


014046 


012700 


014357 


27330 


2467 


014052 


004737 


007110 


27400 


3468 


014056 


013700 


014356 


27450 


2469 


014062 


113037 


W14S64 


2750<5 


3470 


014066 


112037 


014565 


27550 


347i 


014072 


112037 


014366 


27600 


2472 


014076 


010037 


014356 


27650 


3473 


014102 


012702 


014124 


27700 


2474 


014106 


004737 


007124 


27750 


2473 


014112 


012702 


035230 


2780fe) 


2476 


014116 


004737 


007034 


27850 


2477 


014122 


000406 




27900 


2478 


014134 


005037 


007564 


27950 


2479 


014130 


052737 


004000 001364 


38000 


3480 


014136 


000002 




38050 


2481 


014140 


012700 


017730 


38100 


3482 


014144 


004737 


007110 


38150 


3433 


014150 


042737 


004000 001364 


28200 



I 

fTESTJ TOP or rOPM OPTlOfM 

I OPEKATOP INTEBVENTION RKQUJRED IN SINGLE UNfc, MOOI- 



,# » 



181 



(ENABL LSB 



«•#•»»«# 



MOV 

JSP 

MOV 

BIT 

BEQ 

MOV 

MOVB 

JSR 

MOV 

JSR 

DEC 

BNE 

MOV 

JSR 

BIS 



»T3»R0 

PCMTYPE 

»T03Bl'K,R5 

#MULTI»PCrLAG 

3S 

»66«,Bl 

Fr,P2 

PC#MECHO 

#ACK,B2 

PC#MECHO 

Hi 

2S 

#DAS»R0 

PCrMTyPE 

8T0oNE»MFLAG5(Raj 

PC 



fsu FOR Test header 

|5ET up POINTER TO MODULE BLOCK 
jCHECK FOR SINGLE HfF >10UE 
ISI^GLE MOt;E » BRANCH 
I FILL COUNT FOR ji" FOkMS 
JMOVE TO TOP OF FORM 



jStT ATTEnTIom K. L>o,jE FLAGS 



RTS 
ITHIS SECTION FoR SINGLE LINE mAnUAl INTERVENTION 



311 



MOV 

MOV 

MOV 

MOV 

JSR 

MOV 

MOVB 

MOVB 

MOVB 

MOV 

JSR 

MOV 

MOVB 

MOVB 

MOVB 

MOV 

MOV 

JSR 

MOV 

JSR 

BR 

CLR 

BIS 

RTl 

MOV 

JSR 

BIC 



»3$#RPCCR5) 

»HDP5#T3SAVl 

»FILL3»T3SAV 

»HUR3»R0 

PC#TYPES 

»HDR5A,R0 

(R0)*,HDR4+5 

(R0j+,HDR4+6 

CP0),HOR4+7 

«HDR4#R0 

PCTXPES 

T3SAVl»R0 

(R0)-«-,HDR44'5 

(R0)'i-fHDR44-6 

CB0j+,HDR4+7 

R0#T35AVl 

i68rF<2 

PCrREADS 

^l3000«rR2 

PCiREADIO 

99 

DELAKT 

»DATAIN,PCFLAG 

#L1,R0 

PC#TyPE5 

#DATAIN,PCFLAG 



fSgT RETURh Pc ro HEHe 
|GET LIST OF FORM LEwGTHS 
IGET FIL COUNT 



fSET UP MESSAGE rtlTH 
jINSTHUCIIONS fOR 3" 
iFORMS, 



ISEND SU M5G 



, MODIFY INSTRUCTIONS FOR 
INEXT LOOP 

;SAVE THE LIST POINTER 

J PASS 6$ AS VECTOR TO READ ROUTINE 
I GO SET VECTORS 
ISET UP 15 SEC DELAY 



JABORT THE TIMEOUT 



I IN CASE LINE w 



fSENU CH/LF 
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3484 


014156 


043763 


100000 


000004 


28250 




BIC 


«MERR#MFLAGS(P5)|IN CkSK Oi READ ERROR 


34SS 


014164 


117737 


000164 


014360 


28300 




MOVB 


iT3SAV,T3SAV2 


fGET FILL COUNT 


3486 


014172 


113703 


016167 




28350 




MOVB 


FF,R2 




3487 


014176 


004737 


006654 




38400 




JSR 


PCtSECHO 


100 fOHM FfciEL 


2488 


014203 


013702 


000006 




28450 


7SI 


MOV 


»ACK,R3 




2489 


014206 


004737 


006654 




28500 




JSR 


PCSECHO 


jSE.'JL FILL CHARS 


2490 


014213 


005337 


014360 




28550 




DEC 


T3SAV2 




2491 


0J4316 


001371 






28600 




BNE 


7$ 


iCOUaT NUT nONE • BRANCH 


3493 


014230 


012700 


014427 




38650 




MOV 


SDA5,R0 


ILINF.; OF DASHES 


3493 


014234 


004737 


007110 




28700 




JSR 


pc#types 




3494 


014230 


013702 


000012 




28750 




MOV 


#LF,R2 


ISEND CR/LF 


2495 


014234 


004737 


006654 




28800 




JSR 


PC»SEChO 




3496 


014340 


117737 


000110 


014360 


28850 




MOVB 


PT3SAV,T3SAV2 


|GET FILL COUNT 


3497 


014346 


U3702 


016167 




28900 




MOVB 


FF,R2 


fOO FORM FEED 


2498 


014252 


004737 


006654 




28950 




JSR 


PC#SECHO 




2499 


014256 


012702 


000006 




29000 


esi 


MOV 


#ACK,R3 


ISENU ACK CHARS 


2500 


014263 


004737 


006654 




39050 




JSR 


pc»secho 




2501 


014366 


005337 


014360 




39100 




DEC 


T3SAV3 




2502 


014272 


001371 






39130 




BNE 


88 


ICUUM NOT DONE - BRANCH 


2503 


014274 


012700 


014427 




39200 




MOV 


#DAS«R0 




2904 


014300 


004737 


007110 




39350 




JSR 


PC, TYPES 


jLlNfc Of" UAiSHtS 


3305 


014304 


012702 


000012 




39300 




MOV 


SLF,R2 




3506 


014310 


004737 


006654 




29350 




JSR 


PCSECHO 




3307 










39400 










2508 


014114 


005237 


014354 




39450 




INC 


T35AV 


IGET NEW FILL COUNT 


2509 


014320 


023727 


014356 


014651 


39500 




CMP 


T|SAVl,#HDR5E 


|ENO OF i^STHUC^^ON LISI' 


35I0 


014326 


001247 






39550 




BME 


A3$ 


jNO " DO l.h.tT 


2511 


014330 


05276S 


020000 


000004 


39600 




BIS 


#TDONE#MFLAGS(Rb) jSeT ATTEMlOr- h, nuut. FLi 


2312 










29650 










2513 


014336 


000207 






29700 




RTS 


PC 




3514 










29750 










2515 


014J40 


000 


003 




29800 




,BYTE 


0»3 


1 ITERATION CO'JNT 


2516 


014342 


000000 






29850 


T03BLKI 


(WORD 





ICTLC'JT 


2517 


014344 


000000 






29900 




.WORD 





fPASS COUNT 


2518 


014346 


000000 






29950 




.WOR|> 





1 STATUS FLAGS 


3319 


014350 


000000 






30000 




9WORD 





J POINTER 


2320 


014352 


013724 






30050 




9WOPD 


IS 


jRETURN PC 


3931 










30100 










2532 


014354 


000000 






30150 


T35aVI 


gWORD 





istorage 


3333 


014356 


000000 






30300 


T3SAVM 


9WORD 







2324 


014360 


000000 






30350 


T36AV21 


,WORD 







3535 










30300 










3536 










30330 










2537 










30400 


gNLlST 


BEX 






3938 


014J62 


032 


025 


030 


30450 


FILL31 


,B¥TE 


I8,#21«f24,,33, 


f36,,42i jFiLL COUNTS FOR ItST J 


3929 


014370 


060 


063 


102 


30500 




«BYTE 


48«f5tM66«,72i 


*84.* 1 8. 


2330 


014376 


005015 


093017 


051505 


30530 


T3I 


jASCIE 


<15><12><12>/TEST 3 fop OF F0RMS/<15><1?> 


3931 


014427 


075 


036473 


036473 


30600 


DASi 


sASCIZ 


/B88BSB8BB3/<|5> 


3332 


014443 


120 


042322 


031523 


30650 


HDR31 


jASCII 


/PRESS TOF RESET 5WITCh/<i b>< ! 2> 


3931 


014473 


101 


052106 


031105 


30700 




, ASCII 


/AFTER EACH SWITCH SETllNG/<ib><i 2> 
/TYPE DELETE WHEN READY/<1 5><i 2> 


2334 


014336 


054524 


042520 


042040 


30750 




,ASCIZ 


3935 


014957 


055 


042323 


020124 


30800 


HDR4t 


,ASCIZ 


/-SET 3 INCH 


FORM FEED/ 


3936 




014610 






30850 




.EVEN 






2937 


014610 


027063 


065 




30900 


HDR5I 


sASClI 


/3,3/ 




3938 


014613 


040 


032040 




30950 




«ASCII 


/ 4/ 




3339 


014616 


027063 


' 065 




31000 




tASCII 


/3,5/ 
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3i40 


014621 


W40 


031040 


31030 




.ASCII 








014624 


020M40 


067 


31100 




iASCII 








014O27 


040 


034040 


31150 




.ASCII 








014632 


027070 


065 


31200 




.ASCII 


/« 






014635 


040 


030461 


31290 


HDft5Bl 


.ASCII 




1 1 f 




01464H 


030440 


062 


31300 




.ASCII 




1?/ 




014643 


040 


032061 


31360 




.ASCII 




14/ 




014646 


020040 


06 3 


31400 


HDf<5Ai 


.ASCII 








0H6S1 






31450 


HDPSEI 












014652 




31S00 




.KVEN 














31550 


.LIST BEX 







;■ ) 



CZLArA0 LA36 TERM TST MACYU 30A(1052) 03-JAN-77 (^0101 PAGE 3«>15 
CZLAFA.Pll 03»JAN«78 11120 LA36 OPTION TKSTS 



23S2 
25S3 
2554 
3939 
3536 
2537 
3538 
3539 
3360 
2361 
2362 
3563 
3564 
2565 
3566 
3567 
2969 
2969 
2570 
2571 
3572 
2973 
2574 
2575 
2576 
2577 
2578 
2579 
2380 
2581 
2382 
2383 
3584 
2583 
3586 
3587 
3588 
2589 
3590 
3991 
3592 
3593 
2594 
3395 
2996 
2597 
3398 
2599 
3600 
3601 
3603 
2603 
3604 
3603 
3606 
2607 



014652 
014656 

014662 
0J 4666 
014674 
0J4702 
014706 

0147H 
014720 
014724 
01473*^ 
014736 
014742 
M14746 
014752 

014756 
014762 
014770 

014772 
014774 
014776 
015002 
013006 

015010 



012705 
012700 

0047J7 
012737 
012765 
012702 
013737 

004737 
012702 
004737 
117737 
005237 
105077 
013701 
01270k? 

004737 
163737 
002434 

005301 
001405 
H12702 
004737 
000771 
012702 



013246 
015320 

00701tl 

01527C1 015264 

014702 000010 

000033 

016146 015262 

006270 

000062 

006270 

000330 015316 

015264 

000316 

015316 

017730 

007010 

015316 015262 



000056 
006270 



015014 004737 006270 

015020 012702 000061 

015024 004737 006270 

015030 012702 000010 

015034 004737 006270 

013040 012702 000126 

013044 004737 006270 

015050 10S277 000210 

015034 013701 015316 

015060 000740 



013062 012737 
015070 117737 
013076 001440 



013266 
015316 



31650 
31700 
31750 
31800 
31830 
31900 
31950 
32000 
32050 
32100 
32150 
32200 
322S0 

32350 

32400 
32450 
32500 
32550 

32650 

3275i^ 
32800 
32850 
32900 
32950 
33000 

33100 
33150 
33200 
33250 
33300 
33350 

33450 

33500 
33550 



33750 
33800 

33900 
33950 

34050 
34100 
34150 
34300 
34330 
34300 
34350 
34400 



• DSABl. LSb 



I 

I 
I* 



» « « » 



HORIZONTAL TAB OPTION 

IF USING OtHEP THAN 132 COL PAPER CHANGE LUC 

TO ftPPROPPlATE VALUE, SfcE WN C0M,1AW0 , 



« « « 



»»#««« 



« « « H 



T42I 



TE5T4I MOV 
WOV 

J PRINT TEST 
JSR 

T41I MqV 
MOV 
MOV 
MOV 

I SEND ESC-2 
JSR 
HOV 
JSR 
MOVB 
INC 
CLRB 
MOV 
MOV 

I SEND CH/LF 
JSR 

3SJ SUB 
BLT 



4SI 



SSI 



DEC 

BEQ 

MOV 

JSR 

BR 

MOV 



»T04bLK»R5 
»T4»R0 
HEADER 

pc#mtype 
»tabl4#t4sav2 

»T42#fPC(H5) 
»ESC,R2 
WIDTH, T4SAVt 
TO RESET ALL TABS, 
PC»MECMO 
»'2,H2 
PC»f'fcCHO 
iT4SAV2»TAB 
T45AV2 
iT45AV2 
TAB,Rl 
»Li»R0 

PCrMTYPE 

TAb,T4SAVj 

68 

Rl 

58 

»',»R2 

PC»MECHO 

49 

»ESC,R2 



I SEND ESC-l TO SET A TAB 



JSR 
MOV 
JSR 



PC^MECHO 

»'1»R2 
PC»MECHO 



I SEND A BACKSPACE 



I PRINT 



MOV 

JSR 

A V 

MOV 

JSR 

INCB 

MOV 

BR 



»10»R2 
PC»MECHO 
FOR REFERENCE 
«*V,R2 
PC^f^ECHO 
9T4SAV2 
TAB.Rl 
3S 



fSET UP POi(vTf>:R TO MOLULb, bLUCK 



I GET TAP CoUimT FHoh 1AHL4 
IINIIIALIZC- CUNT TO LIV 



;SU TAB Cf'Uf^X Pk-'R LIME 
iFINISHEU JHIS LiNt « HPA^CH 
;TYPL (TAB-t) PfelRlODS 
I AS A FOHMATT FOR 
JCUMPARISON 
»PRINT PERIOD 



ISET TAB 



|LINE SHOULD LOOK LIKE THISi 



6$t 
7SI 



MOV 

MOVB 

BEQ 



»3iC0UNT 
|!T4SAV2,TAB 

lis 



I INCB TAB COUNT 
|GET TAB POS AGAIN 
IFORMATT NEXT SECTION 
. 9.V,,,,,V,,,,,V,,ETC 

IDO 3 LINES OF TABS 
|GtT TAB COUNT 
|S0? » BRANCH OUT 
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) 



360i 
3609 
3{>1(« 
36U 
3613 
3613 
3614 
3613 
3616 
3617 
3618 
3619 
3630 
3631 
3632 
3633 
3634 
363s 
3626 
2627 
3638 
3629 
3630 
2631 
2632 
3633 
2634 
2635 
2636 
2637 
2638 
2639 
2640 
2641 
3642 
2643 
2644 
264S 
2646 
3647 
2648 
2649 
2650 
2651 
3652 
3653 
2654 
2655 
3656 
3657 
2658 

2659 
2660 



015100 005337 015264 
0l3lk^4 Mi2700 017730 



013110 004737 007M10 
013114 012702 000011 



01S120 004737 

013124 U7737 

«13132 «'12702 

015136 004737 

015142 005337 

015146 001371 

015150 012702 



015154 
015160 
015164 
015166 
015172 
015176 
015200 
015204 
015210 
015216 
015224 

015236 
015334 
015242 

015244 
015246 
015250 
015252 
015334 
015256 

015260 
015262 
013264 



5266 
5270 
5273 
5276 
^301 
5304 
5307 
5312 
5313 
5316 
5J20 
5126 
5334 



004737 
003337 
001353 
005337 
005337 
001334 
012700 
004737 
062737 
023727 
001226 

052765 
012763 
000207 

000 



000000 

000000 
000000 

014702 



000002 
004 
010 
011 
020 
022 
040 
100 



006270 

000134 013260 



006270 
015260 



006270 
015316 



015264 
015266 



017(951 
007010 

000002 015264 
015264 015315 



020000 000004 
014666 000010 



005015 
020124 
044322 



000 
000 
000 
000 
000 
000 
000 



052012 
020064 
047S32 



002 
004 
005 

010 

012 
021 
041 



051503 
047510 
052116 



34430 
34300 
34550 

34630 
34700 

34800 
34850 
34900 

35000 
35050 
33100 
35150 

33250 
353»0 
35350 
35400 
35450 
35500 
35550 
35600 
35650 
35700 
35750 
35950 
36000 
36050 
36100 
36150 
36200 
36250 
36300 
36350 
36400 
36450 
36500 
36550 
36600 
36650 
36700 
36750 
36800 
36850 
36900 
36950 
37000 
37050 
37100 

37150 

37200 



INC T4SAV2 
MOV #L1,B0 

J SENU A CR/LF 

JSR PCtMTypfc; 

8SI MOV Ml#B2 

I SEND A HOPU»TAB 

JSH PCiMECHO 

HOVB 0T4SAV2#T4SAV 

9SI MOV IIACK»P2 

I SENW FILL CHARACTERS 



JSR 
DEC 
BNE 
MOV 

> PRINT AN X 
JSR 
PEC 
BNE 
DEC 

10$i DEC 
BNE 

1181 MOV 
JSR 
ADD 
CMP 
BNE 

filS 
MOV 
RT5 

• BYTfc 
I04BLKI ,WORD 
.WORD 
.WORD 
,WORD 
.WORD 

T4SAVI ,WORU 
T4SAVi| .WORD 
T4SAV2I gWORD 



COUnTI .WQRP 2 
TABL4i .BYTE 
sBVTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



PC » "ECHO 
T4SAV 
9S 

»'X,R2 
UNDER EACH V 
PC#MECHO 
TAB 
8S 

T4SAV2 
COUNT 
7$ 

#L3fR0 
PCiMTYPE 
#2»T45AV2 
T4SAV2#«TAB«l 
T42 



|GET FXLti COUNT rABK/2 



|DEC TAB COUNT 

|MOPE TABS " BRANCH 

I Fix POINTER 

|00 3 LIMES 

|NOT DONE - BRANCH 



jGET NEXT TABLE ENTRX 

J End OF TABLE? 
I NO - DO WbXT SET 



»TDONEf MELAGS(Hb) 

8T41#BPC(R5) 

PC 



;StT ATTENTION And DONE FLAgS 



T42 



4#0f2 

6.>0#4 
9.f0f 5 
I6.»0f 8. 
18. ,0,10, 
32, ,0,17. 



IITeRaTION COUNTS 

fCTLCNT 

I PASS COUNT 

fSTATUS FLAGS 

JPOINTER 

I RETURN PC 

I STORAGE 



ITAB, TAB COUNT, FILL COUf^T 
> TABLE FOR TEST 4 



.RYTE 64,,0,33,,0 

TAB! .WORD 

T4I .ASCIZ <15><12><12>/TEST 4 HORIZONTAL TAR/<i5><i2> 



CZLArA0 LA36 TERM 1ST MACYU 30A(1052) 03-JAN«77 00101 pAGE i-17 
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015342 046101 052040 041101 
015350 005015 000 
2661 015354 37250 .EVEN 



SEU k^0M2 



CELAFAiS hA3t TERM ISJ MACYl! J0A(1032) *«3«JAN«77 00101 
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2661 
3664 
266S 
3666 
2667 
266S 
3669 
3670 
2671 
2672 
3673 
2674 
267s 
3676 
2677 
367§ 
3679 
2690 
2681 
2683 
2683 
3694 
268S 
3686 
2687 
2698 
3689 
269® 
2691 
2692 
3693 
2694 
3699 
2696 
2697 
3693 
2699 
2700 
2701 
3t03 
2703 
3704 
3705 
210% 
2t07 
2708 
2709 
2710 
2tU 
2712 
2713 
2714 
2713 
2716 
2tl7 
2718 



015J54 
015J60 
019364 
015370 
013376 
019400 
015404 
01S410 
0I54I4 

019420 
015424 
013430 
015434 
015440 
015444 
013450 
015454 
015460 
015466 
0l547itf 
015476 

015300 
015904 
015912 



015514 
015922 
015930 
015936 
015942 
015950 

015954 
015960 
015964 
015970 
015574 

013600 
019604 
015606 
015610 



012700 
012709 
004737 
032737 
001046 
012700 
112037 
112037 
112037 

012700 
004737 

012^00 

004737 

012702 
004737 
012702 
004737 
032^37 
001770 
042737 
000406 



005037 
052737 
000002 



012737 
012769 
012737 
005037 
012737 
012702 

004737 
012702 
004737 
013701 
012702 

004737 
005301 
001372 
012702 



016040 
016014 

007010 

000040 

014639 
014964 
014369 
014366 

014443 
007110 
014557 
007110 
015500 
007124 
035230 
007034 
004000 



001364 



007964 
004000 



000003 
013514 
000001 
016036 
000014 
00003J 

006270 
000064 
0o627t» 
016032 
000012 

006270 



01364 



004000 001364 



015266 

000010 

016032 



3M90 
37400 
37490 
37500 
37990 
37600 
37690 
37700 
37730 
37800 
37890 

37950 

38000 
38050 
38100 
38150 
3i200 
38290 
38300 

38400 

38500 

38550 
38600 
38630 
38700 
38750 
38800 
38830 
38900 
38990 
39000 
39030 
39100 
39190 
39200 
39290 
39300 
39350 
39400 
39490 
39500 
39950 
39600 

39700 

398|)0 
39830 
39900 

40000 
40090 

4M100 



I 

jTESTb VERTICAL TAB OPTION 

f SINGLE LINE TEST REQUIRES OPERATOR INTERVENTION 

>ENABL LSB 



»««»»« 



') 



Tests I mov 

MOV 

JSH 

BIT 

BNE 

MOV 

MOVB 

MOVB 

MOVB 
I TYpt INSTRUCTIONS 
Tbll MOV IHDR3»R0 



#T5,R0 

«T05BLK,Rb 

PC#MTYPE 

»MULTI#PCFLAG 

49 

#HDR5B»R0 

CR0)+,HnR4+5 

(R0)+»HDB4+6 

(R0)^,HDR4+7 



JSR 
MOV 
JSR 
MOV 

asR 

2SI MOV 
JSR 
BIT 
BEQ 
BIC 
BR 



PC#TYPES 
»HDR4fH0 
PC, TYPES 
«3SrR2 
PC# READS 

»lS000.fR2 

PCfREADlO 
»[)ATAIN,PCFLAG 
28 
»OATAIN,PCFLAG 

49 



|SU TEST HEADEH 

JSET UP POINTER TO MODULE ULOCK 

fMULTl LINE MOUE? 

JYES «■ BRANCH OVER IMEHVENTION 

ISET UP INSTRUCTIONS 



fSU FOR INTERRUPT TO 39 
flNITIALlZE VECTOR AREA 
I ALLOW 19 SEC* 



I »#»»«»«»»««»#»» THIS SECTION HANDLES RECVH 1NTEHRUP1S«»*«#»»»«» 



I 

381 CLB 

BIS 
1081 RTI 

481 MOV 

MOV 

MOV 

CLR 

MOV 

MOV 
> KSC«4 RESETS THE TAB 

JSR PC#MECHO 

MOV S'4»R2 

JSR PCrMECHO 
581 MOV LINES, Ri 
§91 MOV »12*R2 
J SEND LINE FEED, 

JSR PC#MECHO 

DEC Rl 

BN£ 69 

MOV 8ESC,R2 



delayT iabort The timeout 
»datain,pcflag | flag recieved char, 



#2#C0UNT 

»4I»RPC(R5) 

»1, LINES 

TABS 

»12.»MAX 

(»ESC,R2 



1 



I SET HETUHw TO 4$ 



IRESET ALL TABS 



JGET LINE COUNT 
I 



CZLAFA0 LA36 TERM TST MACYU 
CZLAfAePit 03«JAN»78 11120 



30A(1052J 03«'JAN«77 00101 
LA36 OPTION TESTS 
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2719 
2720 
2731 
3722 
2723 
2724 
2725 
2726 
2727 
2728 
2729 
2730 
2731 
2732 
2733 
2734 
2733 
2736 
2737 
2738 
2739 
2740 
2741 
2742 
2743 
2744 
2745 
2746 
3747 
2748 
2749 
2730 
3791 
2752 
2793 
2734 
^759 
2736 
2757 
2738 
2759 
2760 
2761 
2762 
2763 
2764 
2765 
2766 
2767 
2768 
2769 
2770 
2771 
2772 
2773 



015614 
015620 

015624 
015630 

013634 
013640 
019644 
015652 
013654 
015662 
015670 

015674 
015700 

015704 
013710 
1 5 n 4 



004737 
012702 



006270 
000063 



015716 
015722 
019726 
019732 
015736 
015742 
015746 
015752 
015756 
015764 
016772 
015774 
016000 
016002 



004737 006270 
012700 014427 



016012 
016014 
0160I6 
016020 
016022 
016024 

016026 
016030 

016033 
016014 
016036 
0I6040 
016046 



004737 
005237 
023737 
001346 
012737 
012737 
012702 



013746 
012746 
004737 
012700 
004737 
012700 
004737 
005237 
013737 
023737 
001336 
005337 
001329 
052769 



016010 000207 



000 
000000 



000000 
015420 



000000 
000000 



007010 

016032 
016032 

000001 
000001 
000013 



004737 006270 

012702 00000b 

004737 006270 

005337 016M30 
001371 



016032 
016071 
010006 
016071 

007010 

014427 
007010 
0161432 
016032 
016032 

013266 



016032 

016030 



016030 
016034 



020000 000004 



00301s 052^52 05I505 
030124 0a0«465 043326 



40200 
40250 

40350 
40400 

40500 
40530 
40600 
4^690 
40700 
40750 
40800 

40900 
40950 

41050 
41100 
4U50 
41200 
41250 
41300 
41400 
41450 
41900 
41590 
41600 

41700 
41750 
41800 
41830 
41900 
41930 
42000 
42090 
42100 
42190 
42200 
42290 
42300 
42390 
42400 
42490 
42900 
42350 
42600 
43630 
42700 
42790 
42800 
43890 
42900 



JSR PCiMECHO 
MOV »'3#R2 

I ESC-S SETS A TAB LOCATION, 
JSR PCMECHO 
MOV SDAS,P0 



891 

I SEND 



981 

J SEND 



JSR 

INC 

CMp 

BNE 

MOV 

MOV 

MOV 
A VERT< 

JSR 

MOV 
A FILL 

JSR 

DEC 

BNE 



PCiMTyPE 

LINES 

HNfS,MAX 

58 

81, LINES 

»1.15SAV1 

»13»R2 
TAB COMMAND, 

PCfMECHO 

#ACK,R2 
CHARACTER, 

PCMECHO 

TSSAVi 

99 



ni TABS YET? 
|N0 - BRANCH 
jRESET LINE COUfJT 

JFILL COUNl 



■■) 



I CONVERT NO, OF LINES FOR OUTPUT MSii, 



MOV 
MOV 
JSR 
MOV 
JSR 
MOV 
JSR 
INC 
MOV 
CMP 
BNE 
DEC 
BNE 
BIS 

RTS 



LINES, -CSP) 

»T52»"(SPJ 

PCBINgPA 

»T52,R0 

PC,MTYPE 

$DAS,R0 

PC,MTYFE 

LINES 

LINES, T5SAV1 

LINES, MAX 

89 

COUNT 

79 



#TDONE,MFLAGSCRb) 
PC 



>SU LINE OF DASHES 

|NE»<( LINE COU'O 
JFILL COUNT BtLli^ES 
111 TABS DONE? 
I NO " CONTINUE 
|DU 2 P9GES TOTAL 
IHE'DO PAGE 



jSET AiTENfU'^ i, DOtxfc FLAGS 



f • 



jIIEHATIyV Co'JnTS 

fCTLCNT 

I PASS COUiU 

ISTATUS FLAGS 

IPOINTER 

fRETURN PC 



,BYTC 
T05BLKI ,WORD 
jWORD 
.WORD 
gWQRD 
9 WORD 

TSSaVI gWQRD 
I5SAV11 9WORD 



LINESI jWORD 

MAXI gWORD 

TABS I 8 WORD 

T5i ,ASCIZ <l5><i2><l2>/TEST 5 VERTICAL TAH/<ib><l2> 



CELAr&0 LAlfe TEHM TST MACYll 3i}A(lW52) 03«JAN,77 0k)|0l PAGE J»20 



celafa^pu 



03»JAN»78 UI20 



La36 option TLStS 



) 





016»54 


032122 


041511 


046101 






016063 


0S2040 


041101 


005013 






016W70 


000 








2774 


016071 
0t6tt76 


06^ 

000 


030060 


030060 


42950 


277S 




016100 






43000 


3776 










43030 



.asciz /00000/ 



sEVEN 
.DSABL liSB 
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2771 
2779 
2780 
2781 
3782 
2783 

2784 
2785 
2786 
2787 
2788 
2789 
2790 
2791 
2792 
2793 
2794 
279S 
2796 
2797 
3798 
2799 
2800 
38>91 
2802 
2803 
3804 
2805 
3806 
2807 
3808 
3809 
2810 



016100 
016106 
016114 
016124 



016126 
016130 
016133 
016134 
016136 
016140 
016142 
016144 



016146 
016150 
016152 
0161S4 
016156 
016160 
016162 
016164 
016166 
016167 



000000 
000000 



000004 

177870 



000000 

000000 
000000 



000204 

000000 

000000 



000000 

000000 

016114 

177 

014 



43150 
43200 
43250 
43300 
43350 
43400 

43430 

43300 
43550 

43600 
43650 

43700 
43730 
43800 
43850 
43900 
43950 
44000 
44*550 
44100 
44150 
44200 
44250 
44300 
44350 
44400 
44450 
44500 
44550 
44600 
44650 
44730 
44800 



TEMPI 



.SBTTL STORAGE S. CONSTANTS 

PROGRAM STORAGE, CONSTANTS, AmU VARIABLES 



.EVEN 
.WORD 



0,0,0,0,0, 



ITEMPORAHY WORK AREA 



INBUri .BLKW 4 UNPUT BUFFER 

SWHi 177570 ISWIICH REGISTER POIM'Ew 

fMAY BE CHAMGED 10 i7b 
I #»»«»»«»««'»«««»« I/O DRIVER VtiORK AREA «»#«««««»«»»»«««««« 



DLFLAGI .WORD « 

DLADRI .WORD 

DLVECl .WORD 

DLOTHI .WORD 

DVCPXBl .WORD 

UVCTXSl .WORD 

DVCTXBi jWORD 

TXVECl .WORD 

}««««»«»««««« GENERAL USE 

WIDTHI .WORD 132. 

SAVCi .WORD 

NEXTl .WORD 

INTESTI .WORD 

TESTADI .WORD 

ONLINl .WORD 

NXTLINi ,WORO 

PTHi INBUF 

DELt ,8XTE 177 

FFI .BITTE 14 
.EVEN 



iLlNt FLAG >»IORD 
JLINE AODR WORD 
|L1"^E VECTOR WORD 
fLI^iE "nXHER i^OHO 
JRECIEVEH DATA BUFFER 
ITRanSHI STATUS RfctilSlfcR 
jTRANSHIT DATA HuFKER 
iTRANSMIf INTERRUPT VfcCTUH 



;NEXT TEST NO, 

ICURRENT TEST 

ICERPENT TCST PC, 

f CURRENT LINK UNDEk if 

JNEXT LINE TO TEST 

I INPUT BUFFER POINTLH 



3 



CZlhfM LA3b TERM TST MACYll 
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2813 










44900 


l« # # 


» » « 


2813 










44950 


1 




2m4 










45000 


l# # « 


« « # 


3813 










45030 






2B16 


016170 
016176 


000000 
000000 


177360 


000000 


43100 


LIN00I 


aWOBp 


2BI7 


016200 
016206 


000000 

000400 


173610 


000000 


45150 


LIN01I 


sWORD 


2811 


016210 
016216 


000000 

001000 


175620 


000000 


45300 


L1N02I 


»word 


2819 


016220 
016336 


000000 
001400 


175630 


000000 


452S0 


LIN03I 


«word 


2820 


016230 
016236 


000000 
002000 


173640 


000000 


45300 


LIN04I 


tWORD 


3i2l 


016240 
016246 


000000 

002400 


176300 


000000 


45390 


HN05I 


iWORD 


2823 


016250 
0162S6 


000000 
003000 


176510 


000000 


45400 


LIN06I 


sWORD 


3823 


016260 
016366 


000000 
003400 


176520 


000000 


45450 


LIN07I 


9 WORD 


2824 


016370 
016276 


000000 
004000 


176S30 


000000 


45500 


LIN10I 


,woRd 


282S 


016300 
016306 


000000 
004400 


175650 


000000 


45550 


LINlli 


jWORd 


2826 


016310 
016316 


000000 
005000 


175660 


000000 


45600 


LIN12I 


,W0Rd 


2827 


016320 
016326 


000000 

005400 


175670 


000000 


45650 


LIN13I 


»wobd 


2828 


016330 
016336 


000000 
006000 


175700 


000000 


45700 


LINl4i 


.WORD 


2829 


016340 
016346 


000000 

006400 


173710 


000000 


45750 


HN15I 


.WORD 


2830 


016330 
016336 


000000 
007000 


175720 


000000 


45800 


LIN16I 


»wORd 


2831 


016360 
016366 


000000 

007400 


175730 


000000 


45850 


LIN17I 


swORp 


2832 


016370 
016376 


000000 
010000 


175740 


000000 


49900 


LIN20I 


,W0Ru 


2833 


016400 
016406 


000000 
010400 


176340 


000000 


43950 


LIN21I 


,word 


2831 


016410 
016416 


000000 
011000 


176530 


000000 


46000 


LIN22I 


.WORp 


283S 










46050 






2836 


016420 
016426 


000000 
011400 


176560 


000000 


46100 


Ll«23l 


sWORp 


2837 


016430 
016436 


000000 

012000 


176570 


000000 


46150 


HN24I 


,W0RD 


2838 


016440 
016446 


000000 

012400 


176600 


000000 


46200 


i,IN25l 


.WQRp 


2839 


016450 
0164S6 


000000 
013000 


176610 


000000 


46250 


L1N26I 


»»»ord 


2840 


016460 
016466 


000000 
013400 


175750 


000000 


46300 


L1N27I 


.WOKP 


2841 


016470 
016476 


000000 
014000 


175760 


000000 


46350 


LIN30I 


jWORD 


2842 


016900 


000000 


175770 


000000 


46400 


LIN31I 


sWORD 



LINE iNTEHrACE TABj[,E 

0»177560i0»0 
0»175610#0,400 
01 175620»0# 1000 
0#175630»0#I400 
0»175640»0»2000 
0« I76500f 0r 2400 
0rl76510f0»3000 
0»176520»0#3400 
0f I76530f 0f 4000 
0# 175650»0»4400 
0»l75660#»»5000 
0» 17567b»0#5400 
0»175700, 0,6000 
0f 175710,0,6400 
0» i75720i0»7000 
0#l75730i0,7400 
0#175740, 0,10000 
0# 176540,0, 10400 
0#176550,0, 11000 

0#176b60, 0,11400 
0rl76570, 0,12000 
0r 176600,0, 12400 
0r 176610,0, 13000 
0,175750,0, 13400 
0# 175760,0, 14000 
0, 175770, H, 14400 



JCOl^SOLE iNTtHFACK 
inLll-C»D»t LINfcii 



) 



iriRSf wORd I FLAGS 
IBIT lb = pvC PRt«>b^Jl 
»B1T 7 a eye SEbtCl'KD 
IHIT 4 as ABORT FLAG 
IBiT J ThRU 



jTrilRp ^OHp wljuL CONlAiN 
iTriC OEVlCfciS InTeRHUPT 
IVecToR lSUPFl.Ifc;D BY PRuGPam) 



JrtURD FOUR t 

I Bits 7 Thru h 

>«1LL bE SET TO 
JUMGuE SKLKCT CODt 

jBiTs 13 Thru 8 
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016506 


014400 




















2843 


016510 
016516 


000000 

015000 


176000 


000000 


46450 


LIN32I 


,WORP 


01 


rl76000. 


tif' 


f 15000 


2844 


016520 
016326 


000000 
013400 


176010 


000000 


46500 


LIN33I 


9WOPU 


01 


f 176010, 


t0, 


t 15400 


284S 


016530 
016936 


000000 
016000 


176020 


000000 


46550 


HN34I 


«wORp 


01 


P176020, 


»k', 


» 16000 


2846 


016540 
016546 


000000 
016400 


176030 


000000 


46600 


LlN35t 


iWOPD 


01 


»176030, 


r0, 


,]6400 


2847 


016550 
016556 


000000 
017000 


17604<i 


000000 


46650 


LIh36l 


sMORd 


01 


»176040| 


r0< 


r 17000 


2849 


016560 
016966 


000000 

017400 


17662H 


000000 


46700 


HNJ7I 


,wORp 


01 


.176620( 


r0, 


»l74k»0 


2849 


016970 
016976 


000000 
030000 


176630 


000000 


46750 


L1N40I 


9WOPP 


0< 


»176630( 


r0, 


r 20000 


2830 


016600 
016606 


000000 
020400 


I7664k3 


000000 


46800 


L1N41I 


»woRd 


01 


.176640, 


»0, 


» 20400 


2831 


016610 
016616 


000000 
021000 


176650 


000000 


46850 


LIN42I 


.WORD 


0< 


.176650, 


»0, 


f 21000 


2852 


016620 
016626 


000000 
021400 


176660 


000000 


46900 


LIN43i 


,W0RD 


01 


.176660, 


.0, 


»2140H 


3833 


016630 
016636 


000000 
022000 


176670 


000000 


4695P 


HN44I 


sWORp 


0» 


.176670, 


.W, 


.22^00 


2834 


016640 
016646 


000000 
022400 


176050 


000000 


47000 


HN45t 


»W0RD 


01 


176050, 


.0, 


.22400 


2853 


016630 
016656 


000000 

02300fe- 


176060 


000000 


47050 


LIN46I 


.WORD 


01 


1760601 


10, 


.23000 


2856 


016660 
016666 


000000 

023400 


17607m 


000000 


47100 


LIN47I 


.WORD 


0» 


1760701 


.01 


.23400 


2857 


016670 
016676 


000000 

024000 


176100 


000000 


47l5fc 


LIN50I 


iWORD 


0, 


1761001 


.0, 


'24000 


2858 


016 700 
016706 


000000 

024400 


176110 


000000 


47200 


L1N51I 


bWORD 


01 


176110, 


>0| 


.24400 


2859 


016710 
016716 


00000t^ 
023000 


176l2n 


000000 


47250 


LIN52I 


,WORD 


0> 


176120, 


,0, 


'25000 


2860 


016720 
016736 


000000 

025400 


17613M 


000000 


47300 


L1N53I 


.WORD 


0» 


176130, 


.0, 


'25400 


2661 


016730 
016736 


000000 

026000 


176140 


000000 


47350 


LIN54I 


9WORD 


0» 


176140, 


01 


26000 


2862 


016740 
016746 


00000<« 

026400 


176150 


000000 


47400 


HN55I 


.WORD 


0# 


176150, 


H, 


26400 


2863 


0167S0 
016756 


000000 
027000 


176160 


000000 


47450 


LIN36I 


.WORD 


0# 


176160, 


0# 


27000 


2864 


016760 
016765 


000000 
027400 


176170 


000000 


47300 


L1N37I 


.WORD 


0» 


176170, 


0# 


27400 


2863 


016770 


177777 






47550 


tabendi 


.WORD 


"l 








3866 










47600 















jBiNARi LINE ^0, 
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) 



3868 
2B69 
2870 
2871 
2872 
2873 
2874 
2875 
2876 
2877 
287S 
2879 
2880 
2881 
2882 
3883 
2884 
2883 
2886 
2887 
2888 
2889 
2890 
289t 
2892 
2893 
2994 
2895 
2896 
3897 
2898 
3899 
2900 
2^01 
2902 
2903 
2904 
290S 
3906 
2907 
3908 
2^09 
3910 
2911 
3912 
2913 
2914 
291S 
2916 
3917 
2918 
2919 
2920 



I 



016772 
017030 
017051 
017056 
017103 
017135 
017166 
017216 
017245 
017375 
017324 
017J56 
017413 
017443 
017473 
017S42 
017S74 
017632 
017675 
017730 
017733 
017743 
017752 
017761 
020017 
030033 
030055 
030105 
030U7 
020133 
030136 
020166 

030215 
020242 
020270 
020306 
030J45 
020370 

020411 
030416 
030421 
030426 

030434 
030574 
030670 



005015 
003015 

015 
047503 

133 

lis 

020131 

047132 

104 

101 

020124 

047127 

114 

110 

103 

020116 

020120 

051505 

005015 

00S015 

060 

060 

030060 

052 

040 

026455 

116 

104 

052 

015 

005015 

005015 

015 
054105 
030060 
047516 

114 
047503 

004 



004 



09S103 
042522 
005012 
046515 

020040 
020040 
020040 
02004H 
020116 
020116 
020040 
020040 
020040 
020040 
020040 
020040 
020040 
020103 
046012 

000 

020060 
030060 
020060 
051105 
020040 
046055 
020117 
047522 
005015 
051012 
040520 
025052 

090012 
042503 
042040 
046040 
047111 
0S1516 

003401 

000 

001401 

001003 



040514 
052123 

000012 
047101 
020040 
020040 
020040 
020040 
020040 
020040 
020040 
020040 
020040 
020040 
020040 
020040 
02004P 
020040 
047111 

020040 
020060 
020040 
047522 
037477 
0471U 
047111 
050120 
000 
040505 
051523 
020052 

043103 
051523 
047522 
047111 
020105 
046117 

000002 



47700 

47750 

47800 

47850 

47900 PHOGIUI 

47950 

L3I 

HEADPii 

COMSUMi 



SYSTEM MESSAGES 
(NLIST BEX 



020434 
000060 
000^^36 
000000 
001102 



48050 
48100 
48150 
48300 
48250 
48300 
48350 
48400 
48450 
48500 
48550 
48600 
48650 
48700 
48750 
48800 
48850 
48900 
48950 
49000 
49050 
49100 
49150 
49200 
49250 
49300 
49350 
49400 
49450 
49500 
49550 
49600 
49650 
49700 
49750 
4980if 
49850 
49900 
49950 
50000 
50050 

50100 

50150 
50200 
50350 
503M0 



HEADP2I 

I'll 

LINi 

DLADi 

DLVi 

EB0i 

EBII 

EH2I 

ER7I 

DR| 

Sll 

KD)ft 

EOPM| 

EOTMi 

SW| 

DR0I 

DRll 

El9| 

1:201 

CTLMi 



9ASCXI 
.ASCII 
.ASCIE 
,ASCIZ 
.ASCII 
.ASCII 
.ASCII 
iASciI 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCIZ 
.ASCII 
.ASCIZ 
.ASCII 
.ASCII 
.ASCIZ 
.ASCIZ 

.aSciz 

.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

saSciz 

.ASCII 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 



<15><12>/CZLAFA0 LA36 OPTIONS Tl-^STS/ 

<15><12>/RESTABT AT 1372/ 

<15><12><12><12> 

/COMMAND SUMMARY l/<lb><l2><l2> 

/S SINGLE LINE M0DE/<15><1 2><i> 

/M MULTI-LINE MODE/< t 5><i 2>< 1 > 

/O SEQUENCE TESTS/<15><12><1> 

/RN RUN Test "n" /<15><12><1> 

/ON DROP LINE "N" /<15><12><1> 

/AN ADD LINE "N" /<15><12><1> 

/T TYPE LINE TABLE /<15><12><1> 

/WN CHANGE "WIDTH" TO N/<]15><12><1> 

/L LOOP ON ERROR /<15><12><1> 

/H HALT ON ERROR /<15><12><1> 

/C CLEAR I RESETS H & L CO.MMAuns/< j 5>< t 2><1> 

/N INHIBIT REPORTS /<15><12><1> 

/P PRINT ERROR REPORTS /<15><12><1> 

/ESC TO EXECUTE COMMAND STH|NG/<1 5><} 2><1 2> 

<15><12><12>/'^1'^J^» '^DDR VFCTUB SEL/ 

<15><12> 

/00 17/ 

/0000 / 
/000 / 

/»ERROR 000 TEST 00 LINE 00/<l5><U><7> 

/ 7???/<l5><i2><7> 

/ — -LINE INVALID/<15><i2><7> 

/NO INTERRUPT ON TXMIT/<ib><|2> 

/DROFPED/<i5><12> 

/»/<l5><12> 

<15><12>/READY /<15><12> 

<15><12>/PAS5 00000 TESf 00/<l5><l2> 

<15><12>/*** KNO OF TEST 00/<i5><12> 

<15><12>/PCFLAG I 000000 /<15><12> 

/EXCESSIVE ERRORS,, LINE/ 

/00 DR0PPED/<15><12><7> 

/NO LINES AVAILABLE FOR TEST/<15>< I 2><7> 

/LINE BE«SfcLECTED/<i5><l2> 

/CONSOLE CONTROL?/ 



ALLONI .aScIZ <4><l><7><2> 

ALLOFFl .ASCIZ <4><l> 

SCODEl .ASCIZ <4><1><3><000> 



NSELCI 

STACK2I 
STACK3I 

ENOSI 



.ASCIZ 

.EVEN 
.BLKM 
,BLKM 
.WORD 
.END 



<4><1>< j><2> 



ISELECT ALL ESCAPE StUUEi^CE 
fDESELECI ALL SEUUfc.NCE 
jSELECT UNIQUE SfcUUENCfc 
>BAD SELECT SEQUENCE 
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ABO 


a 


000020 


ACK 


m 


000006 


ADDC 


a 


000004 


ALLOFF 




020416 


ALLON 




020411 


ANSHDF 


\ 


011473 


ATTN 


m 


000200 


A20IN 




007676 


A25AV 




010004 


A3I 




014046 


BXNao; 


\ 


010006 


BIT0 




000001 


BIT00 




000001 


81101 




000(902 


BIT02 




000004 


BIT03 




000010 


BIT04 




000020 


BIT05 




000040 


BIT06 




000100 


8IT07 




000200 


BIT08 




00040(" 


BIT09 




001000 


BlTl 




000002 


BIT10 




002000 


BITll 




004000 


8IT12 




010000 


BIT13 




020000 


BIT14 




040000 


BITIS 




100000 


8IT2 




000004 


8IT1 




000010 


BIT4 




000020 


BITS 




000040 


Bir6 




000100 


B1T7 




000300 


BIT8 




000400 


BIT9 




001000 


BPTVECa 


000014 


BUILD 




005640 


CATCH 




006126 


CE 




013305 


cflaGs 


003032 


CHARS 




010310 


CHfCw 




005006 


CMOEBR 


005062 


CNTDA 




010160 


CONSUM 


017103 


CON 




010662 


CONSON 


003332 


COUNT 




015266 


CB 


m 


000015 


CRLF 


m 


000200 


CSI 




004000 



CTLBLK 


001364 


CTLC s 


000003 


CTLCNTB 


000000 


CTLG s 


000007 


CTLGX 


003064 


CTLH B 


000010 


CTLK a 


000013 


CTLL a 


000014 


CTLM 


02037« 


CTLN s 


000016 


CTLP a 


000020 


DAS 


014427 


DATA 


004776 


DATAIN8 


004000 


DATA2 


005000 


DDI5P s 


177570 


DECODE 


004230 


DECSAV 


004774 


DECTBL 


004656 


DEL 


016166 


DELAYM 


007530 


DELAYPS 


104006 


DELAYT 


007564 


DIGITS 


010162 


DLAD 


017743 


DLADR 


016130 


DLFLAG 


016126 


DLOTH 


016134 


DLP s 


100000 


OLV 


017752 


DLVEC 


016132 


DP 


020105 


DROPC a 


000010 


DR0 


020242 


DRI 


020270 


DSWR s 


177570 


DTEND 


004774 


DVCRXB 


016136 


DVCTXB 


016142 


DVCTX5 


016140 


ECHO 


005044 


EMTABL 


006230 


EMTB08 


006162 


EMTVECa 


000030 


ENDS 


020670 


ENQ a 


000005 


EOL a 


004000 


EOP 8 


020000 


EOPM 


020136 


EOT s 


040000 


EOTM 


020166 


ERROR 


005124 


ERR5AV 


005434 



EKRVEC» 


000004 


ER0 


017761 


EHl 


020017 


EH2 


020032 


EH7 


020055 


ESC a 


00003 3 


ETX 8 


000003 


ETYPE 


006240 


E10 


011137 


E12 


011045 


E14 


013356 


E15 


013404 


E16 


013440 


El7 


013475 


E18 


013540 


El9 


020.106 


E20 


020345 


E21 


013575 


E22 


013632 


E9 


011005 


rr 


016167 


FILL3 


014362 


flagda 


010161 


FLAGl a 


000001 


FLAG2 a 


000002 


GETANS 


011216 


GETSRC 


003350 


GETSivS 


003130 


GNL 


002556 


GNi 


002600 


GN2 


002604 


GN3 


002612 


GN4 


002644 


GN5 


002650 


GP 


011100 


G&EL 


010734 


GVL 


002332 


GiA 


002340 


GiB 


002344 


GiC 


002356 


GiD 


002370 


HALTC 8 


000200 


HALTOES 


100000 


HDR3 


014443 


HUR4 


014557 


HDr5 


014610 


HDR5A 


014646 


HDR5B 


014635 


HDR5E 


014651 


HEADRl 


017056 


HEADR2 


017676 


HI 


013252 


HT 8 


000011 



ICNT » 


1777/6 


INBUF 


016114 


INHR B 


000t"i?» 


INHRPTs 


020(^00 


XNTEST 


016154 


iwTRAP 


007162 


lOTVECs 


000020 


ISP 5 


005726 


1SP2 = 


022626 


ITRAP a 


104004 


LDONfc a 


000401^ 


LF = 


000^^12 


LIN 


017733 


LINENO 


001370 


LINES 


016032 


LINESE 


002204 


LiNMON 


002 Uv^ 


LiN00 


0l6l7(^ 


LlNfell 


01620M 


HN4)2 


01621W 


LIN03 


016220 


L1N04 


01623vl 


L1N05 


01624ti 


L1N06 


0l62b('' 


HNbi7 


0l626f« 


LiNifcj 


0l627v! 


UN 11 


01630^^ 


HN12 


01631WJ 


LIN13 


01632^^ 


L1N14 


0163J0 


LINI5 


01634^ 


L1N16 


0l63btt 


LIN17 


0l63bv) 


LIN20 


01637H 


LiN21 


01640^^ 


LIN22 


016410 


LIN23 


016420 


LIN24 


016430 


HN25 


016440 


LIN26 


016450 


LIN27 


016460 


L1N30 


0164/^ 


L1N31 


01650M 


LIN32 


016510 


L1NJ3 


01652^' 


LIN34 


016530 


HN35 


016540 


LIN36 


016550 


LIN37 


016560 


L1N40 


016570 


LIN41 


016600 


L1N42 


016610 


LIN43 


016620 





SEU 0090 


LI«44 


010630 




LlN4b 


k^J 6640 




LI.J40 


kU6<Sb0 




Ll.^47 


0l6febW 




LH-bfi 


fe!1fa67^i 




LiNbl 


tf I6 70fc' 




L1W52 


0lb7l0 




L1^b3 


016 721^ 




LI 1^54 


0ib73i' 




LlNbb 


016740 




LI^b6 


ir»lh750 




Ll^MbV 


016764'/ 




LfJgPC » 


1000104? 




Lf'UPOEs 


040000 




bOOPi 


0fcn4b4 




LOUP 2 


0W1466 




Ll 


017 7 30 




L3 


v)\lvfb\ 




■lACHEH 


V1W0004 




HAOOR = 


0;ri3w00 




MAX 


^^ 16034 




Mfc:CHU 


006 27ifl 




i^ERK a 


IWk){^00 




M EH M.N s 


100377 




MKLAGiia 


i6f)Mv104 




HSAVt 


9^6646 




HTrt 


t'.w2432 




hTM> \ 


i''0 245 2 




fITYPE 


k*t'7l^in 




MULTl = 


('1l''Kl^40 




(mEai^uUs 


i;i^li^00 




N^ATiTs 


^>'/i2<^id^ 




NfcXT 


wl61b2 




i^OUP a 


M0iti240 




NOP s 


11^1,1241^ 




NMfcU s 


/;")ki34^i 




.iSELC 


0:^0426 




fiXlLliN 


016162 




OCIALC 


01lb2w 




ONLll' 


016160 




U2ASC 


0W'7b6b 




PASCHia 


0004<02 




PC FLAG 


v>^1364 




PIRU a 


177772 




PIHOVES 


0^^0240 




POifrr a 


k/M0006 




PHI 


01 0424 




PRINT a 


000020 




PKliMTTs 


010000 




PHlH a 


0W0000 




PRI4 a 


00020t<' 




PH17 a 


000340 




PHOcaO 


016772 





CZLAfAB L&I& TERH TST MACYll J0A(1052J B3»JAN»77 
CZLAFA9PU 03«JAN«78 ill2« SYMBOL TftBLE 



PRTLTB 


007212 


PBTTBLs 


104002 


PR0 s 


000000 


PRJ s 


000040 


PR2 a 


000100 


PR3 s 


000I40 


PR4 8 


000200 


PRS a 


000240 


PR6 8 


000J00 


PR? a 


000J40 


PS a 


177776 


PSW B 


177776 


PTR 


016164 


PWBViCs 


000024 


ROSAV 


003776 


RDV 


020123 


READIO 


007024 


REAPKB 


003466 


READS 


007124 


R£AO)f » 


000200 


REPORT 


00S436 


RESIRT 


001372 


RESVECb 


000010 


RPC s 


000010 


RUB 


010364 


Be »%000t>06 


R7 8! 


1000007 


Save 


016150 


SCODE 


020421 


SEC 


010434 


SECHO 


006654 


SEL s 


000200 


SEIiERR 


00S100 


SEQ 8 


000100 


SETZO 


005601^ 


SI « 


000017 


So 8 


000016 


SOH s 


000001 


SSMR 


000176 


STACK 8 


001100 


5TACK2 


020434 


STACK! 


020974 


STAHT 


001102 


STARTS 


00U72 


START! 


001230 


STKLMT8 


177774 


STRAP 


007510 


STX 8 


000002 


SUTEST 


002056 


sw 


020215 


SWCTL 8 


000020 


SALINE 


000174 



5WB 




016124 


SWRTST 


003006 


5WTE8T 


000172 


SW0 




000001 


SW00 




000001 


SW01 




000002 


SW02 




000004 


SW03 




000010 


Srt04 




000020 


SW05 




000040 


5W06 




000100 


SW07 




000200 


SW08 




000400 


5W09 




001000 


SWi 




000002 


SWt0 




002000 


SW|| 




004000 


SM12 




010000 


Swl3 




020000 


SW14 




040000 


SW15 




100000 


SW2 




000004 


Swj 




000010 


SW4 




000020 


SWS 




000040 


SW6 




000100 


SW7 




000200 


Sw8 




000400 


SW9 




001000 


Si 




020117 


TAB 




015316 


TAbDA 




010146 


TABEND 


016770 


lABLi 




011176 


TABL4 




0I5270 


TABS 




016036 


TBiTV|:« 


000014 


IDONE 


8 


020000 


TEMP 




016100 


Tempf 




005002 


TEHPT 




005004 


TESTAC 


) 


016156 


TESTNC 


) 


0013i>6 


TEST0 




010164 


lESTl 




010444 


TESTJ 




011526 


TE5T3 




013700 


rEST4 




014652 


TESTS 




0I5354 


Timer 




007562 


TKB 


a 


177562 


IKS 


9 


177560 



00101 

E 


PAGK 4«l 


TKV s 


1 000060 


TKVEC « 


i 000060 


TPB a 


' 177566 


TFS s 


! 177564 


TPVEC s 


' 000064 


TKAPVEa 


t 000034 


TRTVEC" 


000014 


TSCCNT 


002036 


T5CPTH 


002034 


T6TBL 


002040 


TSTCIL 


001446 


T5TMQN8 


050000 


TJITHAP 


007416 


TXVEC 


016144 


TlfPANS 


011306 


TypE m 


104000 


TYPES 


007110 


T0 


010366 


T00BLK 


010352 


T01 


010200 


T01BLK 


010722 


T02HIJK 


013176 


T03BI.K 


014342 


T04BLK 


015246 


T05BLK 


016014 


Tl 


010742 


TITEMP 


010736 


Til 


010460 


T12 


010554 


Tl3 


010566 


Ti6 


010634 


T2 


013326 


T2BUF 


013220 


T2CNT1 


013212 


T2CNT2 


0I32I3 


T25AV1 


013210 


T2TEMP 


013214 


T21 


011546 


T22 


011726 


T220 


013144 


T23 


012140 


T23A 


012206 


T24 


012530 


T25 


012636 


T25A 


012734 


T26 


013034 


T3 


014376 


T35AV 


014354 


T3SAV1 


014356 


T3SAV2 


014360 


T4 


015320 


T4SAV 


015260 



ABS, 020672 
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ERRORS DETECTEDI 

CZLArA,CZLAFA,L5T8SVSMAC,SML/ML,SPMAC,5Ml./ML,CZLAFA,Pll 
RUNeTIMEl 120 101 .6 SECONDS 
RUN»TIME RATIO! 6063i/222»272,2 
CORE USED! 19K (37 PAGES} 



T4SAV1 


H15262 


T4&Ay2 


015264 


T41 


014666 


T«2 


014702 


TS 


016040 


T5SAV 


016026 


T5SAV1 


016030 


T61 


015420 


T52 


016071 


UPDATE 


00266M 


WIDTH 


016146 


SBGNLEs 


177777 


$EPrLG8 


000400 


$r8AN08 


000310 


$rgBAD8 


000401 


$F$BLA8 


000170 


$r9CASB 


000150 


sriDECB 


00022(1 


9r8uo s 


000340 


SFSFALs 


000405 


SrgGOOa 


000400 


$FSIF a 


0001 10 


$rsiNC8 


000210 


$r$LOOs 


000200 


$F8NAM8 


000160 


$F$NO 8 


000401 


srgOR 8 


000320 


sfsrtnb 


000300 


SrgSELa 


000140 


8r$THE3 


0003J0 


$F8TRU8 


000404 


$r8UNT8 


000130 


IFS-lHIs 


000120 


IFSYESs 


000402 


8HD 8 


000003 


8IFLEV8 


177777 


S|Sk0 s 


000001 


SiSKt s 


000001 


$1SK10S 


000001 


8lSKlia 


000001 


$ISK2 8 


000001 


$ISK3 a 


000001 


8ISK4 s 


000001 


IISKS 8 


000001 


$I5K6 8 


000001 


SISK7 a 


000001 


ILOCTAB 


177777 


8USTCMS 


177777 


SLSTlNs 


000000 


slstst* 


177777 


8LSTIAS 


000000 


$NESTL8 


177777 







StU 0MV1 


SNSKvi a 


0HidJ00 




SNaKi a 


0t^0l 10 




S^SKi^a 


0t^fcll 10 




S-^SKl la 


0001 10 




8NSKl2a 


01^*^1 10 




5f^SK2 a 


W0i'/1 10 




SmSKJ a 


000210 




SN5K4 s 


0M0110 




S^SHS a 


0110 U0 




S^SKb a 


0t'0l 10 




Si^SKT s 


0001 10 




SSAVLks 


177777 




$SSK0 a 


050023 




8SVPC 'a 


000204 




SSWR a 


lbk'JM00 




$lAGLEa 


17 777/ 




g-fACiNUs 
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